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I.  INTRODUCTION 


The  U.  S.  Coast  Guard  has  regulatory  responsibility  for  the  safety 
of  vessels  and  equipment  that  are  used  in  the  transport  of  bulk  chemicals 
by  water  and  for  the  occupational  health  of  the  personnel  that  are  involved 
in  marine  chemical  operations.  This  responsibility  is  discharged,  in  part, 
by  the  application  of  the  Coast  Guard’s  Hazard  Assessment  Computer  System 
(HACS).  Currently,  HACS  consists  predominantly  of  several  computer  codes 
for  analytical  models  that  describe  the  fate  of  hazardous  materials  that 
are  accidentally  released  into  navigable  waters  and  the  atmosphere.  HACS 
has  been  successfully  used  (1)  to  retrospectively  analyze  accident  sce¬ 
narios,  (2)  to  provide  decision  making  information  to  response  team  person¬ 
nel  in  the  field  immediately  following  an  incident  and  (3)  as  a  training 
aid  for  prospective  analysis  of  hazardous  releases. 

The  Coast  Guard  recognized  that  HACS  did  not  include  models  that 
describe  certain  ship  operations  that  are  non-accidental  in  nature  but 
could  have  an  impact  on  health  and  safety,  nor  was  there  a  data  base  for 
model  development.  To  this  end  the  Coast  Guard  initiated  a  two-part  re¬ 
search  program  entitled  "Investigation  of  the  Hazards  Posed  By  Chemical 
Vapors  Released  in  Marine  Operations."  Among  the  objectives  of  Phase  I 
of  the  program  were  to  (1)  establish  and  document  potentially  hazardous 
tanker/barge  operations  in  marine  terminals,  (2)  identify  those  operations 
that  are  amenable  to  analytical  modeling,  (3)  construct  an  initial  formula¬ 
tion  of  analytical  models  that  describe  these  operations,  (4)  design  a  test 
plan  for  acquiring  model  validation  data,  and  (5)  conduct  exploratory  tests 
under  that  plan.  At  the  conclusion  of  Phase  I,  preliminary  models  had 
been  developed  for 

o  near-field  atmospheric  dispersion  of  heavier-than-air 
chemical  vapors  that  are  discharged  from  a  tank  during 
le  ading,  and 

o  gas  freeing  and  entry  of  cargo  tanks. 

Phase  II  of  the  program  consisted  of  implementing  the  Phase  I  test  plan  and 
refining  the  models.  The  details  of  the  Phase  I  and  Phase  II  studies  are 
presented  in  References  21  and  13. 


1.2 


Scope  of  the  Manual 


This  manual.  Is  intended  for  the  Coast  Guard  Hazardous  Material 
Specialist,  and  It  is  designed  to  be  a  step-by-step  guide  to  the  structure 
and  usage  of  three  computer  urograms. 

o  ONDEK  -  Atmospheric  dispersion  of  cargo  vapor  that  is  discharged 
from  a  tank  during  product  loading  or  gas  freeing. 

o  TANKP  -  Gas  freeing  of  a  tank  in  the  presence  of  evaporation 
of  pure  product  residues. 

o  TANKM  -  Gas  freeing  of  a  tank  in  the  presence  of  evaporation 
of  residual  chemical  from  a  water  solution. 


Manual  Organization 


In  this  manual,  the  description  of  each  program  follows  a  uniform 
format.  This  format  is  presented  below  together  with  a  brief  statement 
of  each  element  in  the  format. 

o  Model  Description  Summary  -  This  section  describes  the  model,  the 
technical  basis  for  the  model  both  in  theory  and  practice,  the 
scenarios  for  which  the  model  is  designed  and  the  model  limita¬ 
tions.  Detailed  analytical  derivations  and  sets  of  governing 
equations  are  not  contained  in  this  manual  but  are  presented  in 
the  Final  Report  for  Phase  II  of  this  project  (Reference  13). 

o  Input  Data  Requirements  -  All  input  data  is  presented  in  tabular 
form  in  the  order  that  it  Is  requested  by  the  interactive  driver. 
The  tabulation  includes  the  physical  variable  name,  the  equiv¬ 
alent  program  code  and  the  expected  units. 

o  Default  Options  -  Certain  pieces  of  input  data  are  assumed  to 
be  known,  e.g,  chemical  properties.  Other  inputs  that  pertain 
to  ship/barge  operations  may  or  may  not  be  available.  In 
these  latter  cases,  the  interactive  driver  asks  the  user  a 
question  regarding  the  availability  of  data.  If  the  user  re¬ 
sponds  negatively,  the  interactive  driver  will  present  a 
series  of  default  options  from  which  the  user  can  make  a 
selection.  These  sections  of  the  manual  present  the  various 
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default  options  and  their  basis  in  the  order  in  which  they 
may  be  encountered. 

o  Program  Output  -  Program  output  consists  of  tabular  data  and 
computer-generated  graphs.  The  tables  may  contain  the  plotted 
variables  and  other  internally  computed  variables.  In  this 
section  of  the  manual,  the  output  variables  are  defined  by 
physical  name,  corresponding  program  code  and  the  applicab 
units . 

o  Hazard  Assessment  -  The  basic  program  outputs  are  either  c  ical 
vapor  concentration-time  histories  or  vapor  concentration 
files  in  space.  In  the  case  of  tank  entry  following  tank  »n- 
ing,  the  programs  make  an  interpretation  of  the  in-tank  work 
environment  based  on  accepted  occupational  exposure  guidelines, 

A  similar  assessment  of  the  on-deck  environment  is  neither 
warranted  nor  entirely  feasible  due  to  the  unconstrained,  random 
nature  of  deck  work. 

°  Examples  -  Each  program  description  includes  a  computer¬ 
generated  example.  Each  example  is  preceded  by  a  brief 
discussion  of  the  problem  that  is  being  simulated,  followed 
by  an  I/O  listing  and  finally  discussion  of  the  results  as 
appropriate. 

°  Elow  Charts  -  Each  program  is  flow  charted  to  indicate  primary 
decision  points  and  the  major  program  operations.  For  clarity, 
minor  IF  statements  and  DO  loops  have  been  omitted. 

o  Refe rences  -  Primary  references  are  cited  to  support  the  model 
description. 

o  Program  Listings  -  Hard  copy  listings  of  all  programs  are 
presented  in  the  appendices. 

1.4  Computer  Program  Organization 

All  of  the  computer  programs  that  are  contained  in  this  manual  have 
been  written  in  Fortran  IV  language  and  have  been  executed  on  both  the 
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Digital  Equipment  Corporation  PDF- LI  70  and  the  Control  Data  Corporation 
Cyber  172  systems.  The  programming  language  is  compatible  with  ' Ik- 
HACS  software  packages. 

The  programs  that  are  described  iu  this  manual  are  stand-alone 
In  nature  and  can  be  executed  Independently  of  the  current  MACS  sv  tom. 

They  each  contain  several  features  that  are  consistent  with  the  HACS 

philosophy  and  will  facilitate  Integration  into  the  HACS  system. 

o  Access  to  the  main  program  is  controlled  by  an  in  dependent, 
interactive  driver.  Through  a  Video  Display  Terminal  fVbi) 
or  a  hard  copy  input  writer,  the  driver  controls  the  flow  of 
user  provided  input  data  and  guides  the  user  to  default  decisions 
when  input  data  are  not  known  or  are  not  available. 

o  The  driver  controls  the  transfer  of  data  from  the  driver  to  the 

main  program. 

o  The  main  program  controls  data  output  and  is  supported  by  separat 
special-purpose  subroutines  such  as  integration  and  plot  routines 

During  preparation  of  these  models  and  this  manual,  the  HACS 
Operations  and  User's  Manual  were  reviewed,  and  there  was  an  opportunity 
to  observe  execution  of  the  HACS  from  a  remote  terminal.  These  efforts 
identified  additional  features  that  are  currently  contained  in  HACS  but 
could  not  be  conveniently  incorporated  into  the  models  that  are  described 
in  this  manual.  These  features,  which  will  need  to  be  recognized  during 
program  integration,  are  enumerated  below . 

o  in  this  manual,  chemical  property  data  are  input  by  the  user. 
Integration  will  require  eliminating  this  input  mode  and  re¬ 
placing  it  with  programmed  access  to  the  HACS  Chemical  Property 
Data  File. 

o  The  input  and  computed  values  of  program  variables  are  not 

currently  screened  to  determine  if  they  fall  within  a  min-max 
acceptance  range  as  is  don-’  in  HACS. 

o  At  the  conclusion  of  data  input,  the  driver  programs  do  not 
give  the  user  an  opportunity  to  review  and  possibly  change 
data  before  executing  the  main  program. 


o  At  the  conclusion  of  data  input,  execution  is  initiated,  and 
output  of  tables  and  graphs  is  displayed  on  a  VDT.  The  plot 
routines  are  an  integral  part  of  the  USCG  MACS  System  and  are 
not  available  in  the  open  literature.  Non-USCG  program  users 
will  need  to  interface  an  appropriate  plot  routine  with  the 
programs.  This  entire  manual  and  the  plot  routines  are  geared 
toward  execution  on  the  USCG  HACS  System. 

o  Following  output  of  data,  the  program  logic  is  not  currently 

in  place  which  would  permit  the  user  to  change  one  or  more  pieces 
of  input  data  and  then  rerun  the  updated  case  as  can  be  performed 
on  HACS. 
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II.  TANK  VKNTI'.ATION  MOOK1.S 


II.l  Tank  Cleaning  Scenarios 

There  are  many  reasons  for  cleaning  cargo  tanks  on  parcel  chemical/ 
product  tankers  and  barges,  and  they  include 

o  preparation  for  change  of  cargo  grade, 

o  insuring  product  puritv  (no  cross  contamination)  when  the 
same  product  is  back-loaded  into  the  tank, 

o  periodic  USCG  inspection  of  tank  internals, 

o  preparation  for  hot  wurk, 

o  inspection  of  tank  coating  materials,  and 

o  repair  of  in-tank  equipment  such  as  closed  gauging 
systems . 

The  cleaning  operation  may  or  may  not  include  a  water  wash  that  precedes 
gas  freeing  or  ventilation.  However,  in  each  case  gas  freeing  is  followed 
by  man-entry  to  accomplish  either  inspection,  repair  or  manual  cleanup 
of  residues  and  debris. 

Two  tank  cleaning  scenarios  have  been  defined  based  on  field  observa¬ 
tion,  and  they  are  described  by  the  models  TANKM  and  TANKP. 

TANKM  -  This  model  assumes  that  the  tank  has  been  water  washed. 
Following  washing  and  stripping  of  slops,  a  residual 
quantity  of  liquid  in  the  form  of  a  chemical-water  solu¬ 
tion  remains  on  the  tank  bottom.  Gas  freeing  is  accom¬ 
plished  by  dilution  ventilation  that  is  provided  by  deck 
mounted  blowers.  The  model  predicts  the  concentration¬ 
time  history  of  chemical  vapor  in  air  at  the  ventilation 
discharge  and  includes  the  effect  of  regeneration  of  pro¬ 
duct  vapor  from  the  aqueous  solution. 

TANKP  -  This  model  assumes  that  the  tank  is  not  washed.  Gas 
freeing  begins  following  product  discharge,  and  the 


model  includes  the  effect  of  evaporation  of  pure  product 
residues . 


In  roughly  80  percent  of  the  field  tests  that  were  conducted  to  support 
the  model  development,  the  tanks  were  washed  prior  to  gas  freeing. 


II . 2  Elements  of  Program  TAKKH 


I I . 2 . 1  Model  Description  Summary 

The  TANKM  model  is  based  on  the  numerical  integration  of 
two  coupled,  tiine-dependent  ordinary  differential  equations.  These 
equations  represent  the  conservation  of  mass  of  (1)  the  chemical  species 
in  the  vapor  space  above  the  residual  binary  solution  on  the  tank  bottom 
and  (2)  the  chemical  species  in  the  aqueous  solution.  The  two  differential 
equations  are  coupled  through  an  interface  condition  that  describes  mass 
transfer  between  the  liquid  and  vapor  phases.  The  formulation  is  com¬ 
pleted  by  specifying  appropriate  initial  conditions  for  both  liquid  and 
vapor  phase  concentrations. 

A  mass  balance  in  the  vapor  phase  yields 


whe  re 


-C  Q  +  AF 
v 


(1) 


~'f-  =  tank  volume 

C  =  mass  concentration  of  vapor  in  air 
v 

Q  =  blower  flow  rate 
A  =  residual  liquid  surface  area 

F  =  net  flux  of  chemical  between  liquid  and  vapor 

phases.  F  is  positive  when  mass  is  transferred 
to  the  vapor  phase  from  the  aqueous  solution. 


This  equation  assumes  that  the  concentration  in  the  vapor  phase  is  well- 
mixed  and  uniform;  there  are  no  spatial  variations  in  concentration. 


Similarly,  a  mass  balance  on  the  chemical  in  the  liquid 
phase  results  in  Equation  2. 


^  -  -F/6 
dt 
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where  C  "  mass  concent  rat  lots  of  chemical  (solute) 

in  water  (solvent) 

<S  =  residue  thickness 

The  interface  condition  that  describes  the  flux  term  F 
is  based  on  the  two-layer  film  model  in  Reference  1. 


F  ‘  V  (CL  -  CV/H) 


(3) 


where  K  =  overall  mass  transfer  coefficient 

referenced  to  the  liquid  phase 

H  =  Henry's  law  constant  or  partition 
coefficient 

This  flux  model  assumes  that  both  the  bulk  liquid  and  vapor  phases  are 
well  mixed  and  concentration  gradients  exist  only  within  the  thin  two- 
layer  interface  film. 

Appropriate  initial  conditions  are 


cv  “  cov 


c  *  c 

L  OL  ^ 


at  t  =  0 


(A) 


This  formulation  requires  a  set  of  supplementary  expressions 
for  calculating  H  and  KQL. 


The  form  of  the  mass  transfer  coefficient  follows  directly 
from  the  derivation  of  the  evaporative  flux  equation  in  Reference  1. 


k  k,  H 

K  =  — - <i> - 

OL  k,  +H  k 
1  g 


(5) 


where  k..  and  k  are  exchange  constants  for  the  liquid  and  vapor  films  in 
^  g 

the  two-layer  model  of  mass  transfer  at  the  liquid  interface.  These  ex¬ 
change  rates  are  given  by  the  following  expressions  from  References  2  and 
3,  respectively. 


k  =  0.33  (44/M)1/2  (6) 

1/? 

k  =  18.95  U  .  ,  (18/M)  (7) 

g  wind 
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where  M  =  molecular  weight  of  the  chemical 

U  ,  =  effective  air  velocity  over  the  liquid 

wind 

surface 


The  assumption  that  the  bloweh  produces  a  well-mixed  vapor  space  implicitly 

implies  that  there  are  no  loeil  variations  in  the  air  flow  velocity  over 

the  residual  liquid  surface.  U  ,  then,  is  an  integrated  average  or 

wind 

effective  evaporation  air  velocity  that  was  derived  from  Reference  4  which 
is  concerned  with  the  normal  impingement  and  axi symmetric  turning  and 

spreading  of  air  jets. 


U 


wind 


(8) 


where 


n  =  1.12 

r  =  0.15  D 

D  =  tank  depth 
1  1  2 

=  1.4  U  d  *A‘ 
o 

=  average  blower  jet  velocity 

=  jet  diameter  at  blower  discharge  (usually  Butterworth 

opening  diameter) 


C 

U 

c 

d 

K 


=  C/r 


n+1 


The  quantity  represents  an  estimate  of  the  effective  range 
of  the  blower  jet  following  impingement  on  the  tank  bottom  and  radial  spread¬ 
ing  over  the  liquid  surface.  This  estimate  attempts  to  account  for  the  non- 
axisymme trie  flow  of  air  over  that  tank  bottom  that  results  from 

o  the  lateral  constraint  of  the  tank  walls  and 

o  an  on-deck  blower  location  that  is  not  normally 
centered  on  the  tank  planform. 

Estimates  of  r^  range  from  0.50L  to  0.75L  as  measured  from  the  blower  iet 
stagnation  point  where  L  is  the  overall  tank  length. 
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The  quantity  3  is  a  free,  dimensionless  parameter  that 
resulted  from  correlations  between  experimental  data  and  theoretical 
predictions;  a  nominal  value  of  g  is  0.131. 

The  model  incorporates  two  methods  of  calcu  ating  H, 
the  Henry's  law  constant  or  partition  coefficient.  For  dilute,  ideal 
solutions,  H  is  calculated  by  Dilling's  method  in  Reference  2. 

p  M 

H  =  16.04  J_v_  (9) 

TS 


where  p^  =  vapor  pressure  of  the  solute  (chemical) 

at  temperature  T 
M  =  solute  molecular  weight 
S  =  solute  solubility  in  water  (finite) 

For  highly  or  infinitely  water  soluble  chemicals,  H  is  calculated  by 
the  method  proposed  by  Mackay  in  Reference  5. 

H  =  v  p  y,/RT  (10) 

w  v  1 

where  v  =  molar  volume  of  water 

w 

p^  =  vapor  pressure  of  solute  at  tenperature  T 
Y^  =  solute  activity  coefficient 
R  =  Universal  gas  constant 


The  activity  coefficient,  y,  for  a  chemical  (solute)  in  water  (solvent) 
solution  is  based  on  the  following  approximation  to  the  two-suffix  van  Laar 
equations  of  Reference  6. 

log  =  log  (1-Xj)2  (11) 


where 


Y»  =  activity  coefficient  at  infinite  dilution 
1 

=  mole  fraction  of  chemical  in  solution 


The  mole 

of  chemical  in  water 


fraction 


1’ 


is  related  to  the  mass 


concentration 


x 


1 


(12) 
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where 


M  ,  M  =  molecular  weight  of  chemical  and  water, 
c  w 

respective ly 

p  ,  p  =  mass  dens i tv  of  chemical  and  water, 
c  c 

respectively 

C  =  mass  concentration  of  chemical  in  solution 

L i 

(program  dependent  variable) 

This  conversion  assumes  that  the  chemical  and  water  volumes  are  additive 

in  solution,  and  it  gives  the  best  representation  of  over  a  range  of 

C,  from  zero  to  p  (Reference  7). 

L<  c 

There  are  a  number  of  systems  of  correlating  equations, 
that  can  be  used  in  calculating  7  ,w  as  indicated  in  Reference  8,  '1'ANfCM 
presumes  that  the  user  has  applied  one  of  these  methods  to  calculate  y " 
as  an  input  to  the  program.  All  of  these  methods  require  varying  amounts 
of  basic  data  in  order  to  perform  the  calculation.  At  the  present  time, 
these  data  for  calculating  are  not  contained  in  the  HACS  Chemical 
Property  Data  File. 

The  most  readily  used  method  is  presented  in  Table  8-17  of 
Reference  8.  The  elements  of  the  method  are  outlined  below. 

1.  The  user  identifies  the  functional  group  that  includes 
the  chemical  (solute)  of  interest  with  water  being  the 
solvent.  For  example,  ethanol  is  an  n-p rimary  alcohol 
and  xylene  is  an  n-alkyl  benzene. 

2.  Table  8-17  of  Reference  8  identifies  five  correlating 
constants  for  each  functional  group  and  the  appropriate 
correlating  equation. 

3.  The  last  pieces  of  information  are  obtained  from  a  two- 
dimensional  representation  of  the  chemical  structure. 

N^,  =  total  number  of  carbon  atoms  in  solute  and 

solvent  molecules,  respectively 

N’ ,  N"  ,  N’"  =  number  of  carbon  atoms  in  respective 

branches  of  branched  compounds,  in¬ 
cluding  polar  groups 


1  2 


is  then  calculated 


4.  Yj00 

Table  I  illustrates  the  application  of  this  metis  il  for  several  chemicals 

in  water  solution. 

11. 2. 2  Input  Data  Requirements 

A  driver  or  main  program  entitled  PRF.TNK  controls  the  flow 
of  input  data  from  a  user-operated  video  display  terminal  (VDT).  PRETNK 
is  structured  to  accept  data  for  either  the  TANKM  model  or  the  TANKP 
model.  The  interactive  logic  in  PRETNK  guides  the  user  in  inputting  a 
data  set  that  is  consistent  with  the  requirements  of  either  model. 

When  the  input  requirements  for  the  TANKM  model  have  been 
satisfied  in  PRETNK,  the  driver  creates  a  file  TANKMI,  which  enables  TANKM 
to  read  the  input  data.  The  Fortran  codes  for  the  input  variables  in 
PRETNK  are  identical  to  those  in  TANKMI  and  TANKM.  A  similar  read  file, 
TANKPI,  is  created  when  TANKP  is  to  be  executed. 

Table  II  describes  the  input  data  requirements  and  control 
variables  for  TANKM  in  the  sequence  that  they  will  be  requested  of  the 
user  by  PRETNK.  Default  options  and  the  PRETNK  subroutines  that  control 
default  input  are  indicated  where  applicable;  a  discussion  of  each  default 
option,  together  with  any  input  required  by  the  default  subroutines,  is 
presented  in  Section  II. 2. 3. 

PRETNK  accepts  a  free  field  format  for  input  of  all  real 
(non- integer)  variables.  In  the  event  that  the  number  of  free  fields  that 
are  input  to  PRETNK  exceeds  the  format  length  specified  by  TANKM,  file 
TANKMI  will  truncate  to  meet  the  input  requirements.  Conversely,  when 
the  number  of  free  fields  is  less  than  the  TANKM  requirements,  the  input 
is  used  as  provided.  User  supplied  responses  to  interactive  questions 
are  A2  formatted  within  PRETNK. 

11. 2. 3  Default  Options 

This  section  describes  the  input  default  options  that  can 
be  selected  for  TANKM.  A  default  option  may  be  selected  if  (1)  sufficient 
data  is  not  available  to  meet  the  program  requirements  or  (2)  the  user 
intends  to  study  the  effect  of  various  combinations  of  variables  in  the 
tank  cleaning-tank  entry  scenario. 
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TABLE  I.  CORRELATING  CONSTANTS  AND  EQUATIONS  FOR  CALCULATING 
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TABLE  II.  INPUT  DATA  REQUIREMENTS  FOR  TANKM 


Dimensionless  -  Real  Variable 

The  curve  fit  on  liquid  chemical  density  will  not  be  required  when  the  program  Is  Integrated  Into  the  IISCC-IIACS  system. 
The  density  as  a  function  of  temperature  will  be  obtained  from  the  MACS  Chemical  Property  Data  File. 


INPUT  DATA  REQUIREMENTS  FOR  TANKM  (CONTINUED) 


per  million  by  volume 


Each  default  option  Is  programmed  as  a  self  contained  sub¬ 
routine.  The  appropriate  subroutine  Is  automatically  called  when  the  inter 
active  driver  receives  a  negative  user  response  to  a  question  regarding 
data  availability.  These  subroutines  are  also  interactive  and  guide  the 
user  in  selecting  data  to  satisfy  the  program  requirements.  The  numerical 
values  for  the  options  are  based  on  a  combination  of  field  experience, 
technical  literature,  as  well  as  the  experience  and  operating  procedures 
of  vessel  operators. 

The  default  options  are  presented  below  in  the  order  that 
each  subroutine  would  be  called  from  the  PRETNK  driver.  The  location  of 
these  calls  in  the  overall  input  data  sequence  can  be  identified  by 
referring  to  the  COMMENT  column  in  Table  II. 


Subroutine  TKPIM 

When  tank  dimensions  are  not  known,  the  user  has  the 
option  of  selecting  a  barge  tank  or  a  tank  on  parcel/product  carrier. 

For  each  tank  type  there  are  two  default  options. 

Barge  Tank  Default  Dimensions 

Option  1  -  Full  Beam  Tanks 
L  =  16.5  m 
W  =  8.2  m 

D  =  4.4  m 

Option  2  -  Port/Starboard  Tanks  Symmetric  About  Centerline 
L  =  9.0  m 

W  =  6.8m 

D  =  3.6  m 

Ship  Tank  Default  Dimensions 


Option  2  -  Wing  Tank 
1.  =  12.2  m 
W  =  7.3  m 

D  =  1 4 .  (•>  m 

The  above  options  on  tank  dimensions  reflect  actual  tank  measurements, 
a  review  of  the  barge  files  in  USFO  District  8  Offices  and  data  provided 
by  vessel  operators.  When  the  appropriate  option  has  been  selected  for 
either  tank  type,  the  default  dimensions  are  automatically  assigned  within 
the  subroutine. 

Subroutine  BLOWER 

Entry  into  this  subroutine  indicates  that  either  a  measured 
blower  flow  rate  into  the  tank  or  discharge  flow  rate  from  the  tank  is  not 
available  to  the  user. 

The  user's  first  option  is  to  estimate  the  flow  rate  from 
the  manufacturer's  specifications.  This  estimate  requires  information  on 
the  blower  model  number  and  the  onboard  supply  pressure  of  the  steam, 
water  or  compressed  air  that  drives  the  blower.  If  this  information  is 
not  readily  available,  then  the  user's  second  option  is  to  select  an  average 
flow  rate  from  the  following  alternatives: 

Low  Fiow  Rate  Q  =  36  m/min  (1270  cfm) 

3 

Medium  Flow  Rate  Q  =  96  m  /min  (3390  cfm) 

High  Flow  Rate  Q  =  1 2 A  m^/min  (4380  cfm) 

These  average  flow  rates  were  obtained  from  19  measurements  during  gas 
freeing  tests.  The  test  data  indicated  that  the 

3 

o  low  flow  rates  extended  from  24  to  48  m  /min, 

3 

o  medium  flow  rates  extended  from  83  to  101  m  /min,  and 

o  high  flow  rates  extended  from  110  to  140  m^/min. 

Selection  of  any  of  the  above  flow  rate  options  assumes  that  the  blower  is 
fully  mated  with  the  Butterworth  opening  during  ventilation,  i.e.  the 
entire  output  of  the  blower  is  directed  into  the  tank.  This  assumption  is 
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valid  in  the  majority  of  gas  freeing  operations.  However,  this  assumption 
is  not  valid  when  the  blower  is  operated  in  a  cocked  position  that  is 
analogous  to  an  ullage  port  resting  on  its  pin.  This  situation  occurs 
occasionally  when  the  design  specit'ication(metric  versus  English  units) 
for  the  bolt  circles  on  the  blower  and  Butterworth  opening  are  not  compati¬ 
ble  or  when  the  blower  discharge  diameter  is  greater  than  the  diameter  of 
the  Butterworth  opening. 

In  either  of  the  above  cases,  there  will  be  a  reduced  flow 
rate  into  the  tank  relative  to  a  fully  mated  blower.  The  flow  rate  of 
air  entering  the  tank  is  some  fraction,  K,  of  the  rated  flow  rate.  Sub¬ 
routine  BLOWER  does  not  contain  a  default  option  for  K.  If  the  user  is 
executing  a  run  in  which  there  will  be  a  flow  rate  reduction,  then  K  is 
a  user  input  that  is  based  on  judgement.  However,  a  default  value  of  K 
equal  to  0.62  is  suggested  for  at  least  the  case  where  the  blower  discharge 
diameter  is  greater  than  that  of  the  Butterworth  opening.  This  value  of  K 
was  calculated  as  the  ratio  of  nominal  Butterworth  opening  area  divided 
by  the  area  of  a  blower  having  the  next  largest  discharge  diameter  of  0.39  m, 
which  corresponds  to  a  currently  available  steam  or  compressed  air  driven 
blower. 

Subroutine  POSTWH 

This  subroutine  is  called  from  PRETNK  if 

o  the  postwash  residue  thickness,  DELTA,  on  the  tank 

bottom  is  unknown  but  the  chemical  concentration,  COL, 
in  water  is  known  or 

o  neither  DELTA  nor  COL  are  known. 

Thus,  there  are  two  default  branches  within  this  subroutine. 

Default  Option  1  -  DELTA  Unknown,  COL  Known 

The  rationale  for  this  default  branch  is  that  DELTA  is  not 
a  readily  measurable  quantity  on  barges  and  to  greater  extent  on  tank  ships. 
Conversely,  a  sample  of  wash  water  residue  can  be  obtained  near  the  end  of 
washing  from  a  slipstream  on  the  tank  discharge  line;  this  sample  can  then 
be  analyzed  for  solute  concentration,  COL,  using  the  appropriate  analytical 
chemistry  methods. 

The  user  may  select  a  residue  thickness  within  the  following 

default  range. 
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delta  =  0,  1  cm  -  2.5  cm 

The  lower  limit  on  this  range  would  represent  crflclcnt  rniMv.il  ol 
residues  by  a  stripping  pump  or  stripping  lino.  The  t  .ink  bottom  would 
have  the  appearance  of  wet  concrete.  If  the  suction  inlet  on  the  cargo 
discharge  line  is  above  the  tank  bottom  or  there  is  incomplete  stripping, 
then  residue  thickness  could  approach  the  upper  limit  of  this  range. 

Default  Option  2  -  DELTA  and  COL  Unknown 

A  default  value  for  DELTA  is  determined  as  in  Default 

Option  1. 

Next,  the  default  value  for  COL  is  computed  based  on  the 
following  scenario.  After  the  cargo  has  been  discharged  from  the  tank, 
a  residual  volume  of  cargo,  VRES,  remains  on  the  tank  bottom.  The  tank 
is  then  washed  with  portable  machines  at  a  prescribed  water  flow  rate,  QW, 
for  a  given  period  of  time,  TW.  It  is  assumed  that  all  of  the  residual 
chemical  goes  into  solution,  and  the  discharge  of  wash  slops  does  not 
begin  until  the  washing  has  been  completed.  In  practice,  the  cargo  dis¬ 
charge  pumps  are  operated  for  brief  periods  of  time  to  remove  slops. 

After  washing  has  been  completed,  it  is  further  assumed  that  the  slops 
are  pumped  and/or  stripped  from  the  tank  until  the  prescribed  value  of 
DELTA  has  been  reached. 

To  initiate  calculation  of  the  default  value  for  COL,  the 
user  may  select  two  options  for  the  residual  chemical  volume,  VRES. 

3 

Option  1  -  VRES  =  0.2  m  for  low  kinematic  viscosity 

cargos,  high  draft  difference  during  dis¬ 
charge,  deep  well  pumps  with  sump  and  sump 

stripped  with  eductor. 

3 

Option  2  -  VRES  =  5.0  m  for  high  kinematic  viscosity 

cargos,  low  draft  difference  during  dis¬ 
charge  and  no  deep  well  pump  or  sump. 

The  lower  value  of  VRES  is  consistent  with  the  experience  of  owner/operators 
of  parcel  chemical  tankers  and  the  residual  chemical  volumes  that  were 
measured  and  predicted  in  Reference  9.  The  higher  value  for  VRES  represents 
an  upper  bound  for  nearly  all  of  the  data  that  is  reported  in  Reference  9. 
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The  wash  water  flow  rate  and  washing  time  are  specified  by 
this  subroutine. 

3 

QW  =  0.28  m  /min 
TW  =  48  min 

The  washing  time  represents  an  average  for  a  wide  range  of  tank  sizes  and 
chemicals  of  varying  solubility  in  water.  The  wash  water  rate  corresponds 
to  75  gpm  and  represents  an  average  rate  for  portable  machines  (3/8-inch 
diameter  nozzles)  operating  at  supply  pressures  of  approximately  100  psig. 
These  values  reflect  field  observations  and  the  data  in  Reference  10. 

The  solute  con :entration  at  the  end  of  washing  is  then 

calculated. 

„  „  VRES  *  PCHEM  *  1E9  .  3 

C0L  ”  QW  *  TW  +  VRES  ’  mg'm 

3 

where  PCHEM  is  pure  chemical  density  in  gm/ cm  ,  and  it  is  a  user  input 
that  is  requested  by  subroutine  POSTWH. 

This  calculated  solute  concentration  is  then  compared  to 
the  known  solubility  limit,  S,  which  is  a  user  input  to  PRETNK.  If  COL 
is  less  than  S,  the  calculated  default  value  will  be  used  in  the  program. 
The  calculated  COL  is  rejected  if  it  is  greater  than  S;  the  program 
proceeds  with  an  assigned  value  of  COL  that  is  equal  to  S. 

Subroutine  PREVNT 

Within  this  subroutine,  the  user  will  input  either  a  known 
value  for  COV,  the  chemical  vapor  concentration  in  the  tank  before 
ventilation  begins,  or  a  default  value  will  be  calculated. 

In  calculating  the  default  value  of  COV,  it  is  assumed 
that  before  discharge  is  initiated  the  ullage  space  above  the  cargo 
contains  saturated  vapor  corresponding  to  cargo  temperature,  CTEMP.  The 
user  inputs  this  temperature  to  the  subroutine  in  °C.  It  is  further 
assumed  that  the  tank  was  loaded  to  some  fraction,  OMEGA,  of  its  capacity. 
For  a  fully  loaded  tank,  OMEGA  will  normally  be  0.95  to  0.98.  A  short 
loaded  tank  may  result  in  an  OMEGA  of  0.5  to  0.75,  i.e.  substantially 
less  cargo  than  the  tank  capacity.  As  the  cargo  is  discharged,  the 
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saturated  vapor  in  the  ulLage  space  will  he  diluted  hy  air  Ingested  into 
the  tank.  Assuming  that  there  is  no  additional  evaporation  of  cargo  from 
the  residues  and  that  the  tank  atmosphere  reaches  equilibrium,  then  by 
the  perfect  gas  law 

cov  -  p.y.s(-n,p-  gw  ,1E6 

where  COV  =  equilibrium  tank  vapor  concen tration  following 

cargo  discharge,  ppm 

PVS  =  saturated  vapor  pressure  at  CTKMP  In  mniHg  as 
determined  by  Antoine  equation 

OMEGA  =  fractional  volume  of  tank  occupied  bv  cargo 

PA  =>  atmospheric  pressure,  mm  Hg 

The  estimated  default  value  for  COV  is  used  in  both  TANK.M 
and  TANKP.  Its  use  In  the  TANKM  model  is  justified  because  measurements 
of  the  tank  vapor  concentration  before  and  after  washing  indicate  that 
the  water  wash  has  a  relatively  minor  affect  on  vapor  levels.  The  primary 
affect  of  the  wash  is  to  dilute  chemical  residues. 

Subroutine  VTWORK 

The  tank  cleaning  scenario  assumes  that  barge  or  ship 
personnel  enter  the  tank  at  some  time  after  the  gas  freeing  or  ventilation 
has  been  initiated.  The  gas  freeing  time  prior  to  man-entry’  may  be  based 
on  crew  experience  rather  than  a  formal  cleaning  and  entry  procedure. 

This  subroutine  permits  the  user  to  input  TM,  which  is  the 
ventilation  time  in  minutes  prior  to  man-entry  into  the  tank. 

In  this  subroutine,  the  user  may  select  from  five  options 
that  describe  the  type  of  work  that  will  be  performed  in  the  tank  and  TWORK, 
the  duration  of  the  work.  These  options,  which  are  presented  interactively 
to  the  user  are  shown  below. 

Option  1.  Brief  visual  inspection  and  odor  determination 
with  cargo  surveyor.  TWORK  =1-2  min. 

Option  2.  Inspect  tank  coatings  and  measure  thickness 
TWORi;  =  15-45  min. 
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Option  3.  Hand  mucking  of  residue  with  towels  and  rags 
(relatively  dirty  tank)  TWORK  =  90  min. 

Option  4.  Sweep  debris  from  tank  bottom  and  wipe  pump 
sump  (relatively  clean  tank)  TWORK  =  40  min. 

Option  5.  User  specified  such  that  (TM + TWORK) /DT  is 
less  than  500. 

In  the  first  two  options,  the  user  may  input  a  value  of  TWORK  that  is 
within  the  indicated  time  range.  Option  5  permits  the  user  to  specify 
work  times  for  in-tank  scenarios  that  are  not  represented  by  Options  1 
through  4. 

Subroutine  VENTMP 

The  purpose  of  this  subroutine  is  to  establish  a  temperature- 
time  history  for  the  chemical  vapors  that  are  discharged  from  the  tank 
during  ventilation. 

A  measured  or  hypothetical  temperature  profile  can  be  used. 
The  subroutine  accepts  ordered  pairs  of  digitized  time  and  temperature 
beginning  with  the  lowest  time  and  ending  with  the  largest  time.  The  time 
values  are  stored  in  a  one  dimensional  array  TABTIM.  Corresponding 
tenqperatures  are  stored  in  a  TABTEM  vector.  The  number  of  discrete  data 
pairs  is  equal  to  NUMTAB.  The  user  inputs  each  ordered  pair  sequentially 
on  a  separate  line.  At  each  input,  time  is  entered  first  then  temperature. 

If  a  discharge  temperature  profile  is  not  available,  there  are  two 
default  options. 


Option  1.  -  Tank  Washed  With  Hot  Water 

If  the  tank  was  washed  with  hot  water,  this  option  will 
result  in  a  constant  discharge  temperature  of  41°C  (105°F)  for  all  times 
following  initiation  of  ventilation. 

Option  2.  -  Tank  Washed  With  Cold  Water 

The  tank  may  be  washed  entirely  with  either  salt  or  fresh 
water.  A  salt  water  wash  may  be  followed  by  a  fresh  water  wall  wash.  For 
either  type  of  wash  procedure,  the  model  assumes  that  the  wash  water  cor¬ 
responds  to  the  temperature  of  the  navigable  water  surrounding  the  vessel. 
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and  this  temperature  prevails  during  ventilation. 

This  default  option  has  two  alternatives  that  reflect 
observed  seasonal  variations  in  wash  water  temperature  in  the  Gulf 

Coast  area. 

o  Alternative  1  -  Temp  =  16.5'JC  (61°F),  Winter/ 

Gulf  Coast 

o  Alternative  2  -  Temp  =  29.4°C  (84°F),  Summer/ 

Gulf  Coast 

Either  of  these  alternatives  may  be  selected  under  Option  2.  The  result 
will  be  a  constant  vapor  discharge  temperature  during  ventilation. 

II. 2. 4  Program  Output 

Execution  of  the  TANKM  program  includes  two  output 

operations. 

Operation  1.  -  Initially,  the  data  that  is  input:  by  the 
user  to  PRETNK  must  be  transferred  in  a 
compatible  format  to  TANKM.  This  transfer 
is  accomplished  internally  through  the  out¬ 
put  of  the  TANKMI  data  file  in  PRETNK;  there 
is  no  hard  copy  or  video  display  of  the 
transfer. 

Operation  2.  -  Primary  data  output  is  generated  and  control¬ 
led  by  TANKM.  The  tabular  output  is  spooled  to 
a  printer  for  hard  copy  display.  The  graph¬ 
ical  output  is  displayed  on  the  video  screen. 

The  details  of  each  output  operation  are  presented  below. 

II. 2. 4.1  TANKMI  Output 

The  TANKMI  output  statements  are  duplicated 
below.  Note  that  for  each  WRITE  statement  there  is  a  corresponding  READ 
statement  in  TANKM,  and  the  variable  sequences  are  common  to  both  statements. 
In  addition,  each  WRITE  statement  contains  two  integers  in  parentheses.  The 
first  integer,  1,  creates  the  TANKMI  file,  and  the  second  integer  indicates 
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the  format  number,  which  is  listed  at  the  end  of  the  WRITE  operation 


« 


OUTPUT  DATA  FOP  TAM'.M 


WR I TE (1.2)  TESTNO 

WRITE!  1,  3)  L,  W,  D 

WRITE!  1,3)  Q,  DELTA 

WRITE!  1,3)  DIA,  M 

WRITE!  1,3)  S,  CAMir>~,  Cl,  C2 

WRITE!  1,3)  A,  3,  C 

WRITE!  1,3)  PA.  R2 

WRITE!  1,3)  COL,  COV 

WRITE!  1,3)  TI,  Tfl,  TWORK,  DT 

WRITE!  1,4)  NUMTAB 

WR I TE ( 1 . 5  >  < T A3  T I M ( I > »  1=1, MUM TAB ) 

WR  I  TE !  1  ,  5  )  !  TA3TEM  (  I  ) ,  1  =  1,  MUM  TAB  ) 

WR ITE ( i ,  4 )  JEW  TCH,  HE  UAL 
WRITE!  1,6)  NUMEXP 

IF  !.NUMEXP  .  WE.  0)  NR  I T£< 1 , 7>  !ETIM£!I>,  EC  VPPM  (  I  ) ,  I  =  1 ,  NUME 

WR I TE  < 1 , 8  )  IT WORK  ,  I  BLOW 

WR I TE ! 1 , 3 )  TLVC ,  TLV TWA,  TLV3TL 

FORMAT! 15) 

FORMAT! 5E 12.  5) 

FORMAT! 2 13) 

FORMAT! 7F8  3) 

FORMAT! IX, 15) 

FORMAT!  IX,  2F 12.  4) 

FORMAT  (15,  A 2) 


11.2.4.2  TAN KM  Output 

TANKM  produces  six  blocks  of  output  information. 

BLOCK  1  -  This  block  prints  out  selected  pieces  of  input  data  for  reference 
purposes  as  well  as  the  results  of  calculations  that  initialize  the  problem. 
The  structure  of  the  output  block  is  shown  on  the  next  page. 
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##*##  TEST  NO 


-turn-* -a 


ONE-TIME  OUTPUTS 


VARIABLE  DESCRIPTION 


UNITS 


RESULT 


HEVAL 


'1,  H(  MAC  KAY  ) )  -2,  H(  DILL  I  NO) 


*•&** 


Q  BLOWER  FLOW  RATE 

AREA  LIQUID  SURFACE  AREA 

L  TANK  LENGTH 

U  TANK  WIDTH 

D  TANK  DEPTH 

V  TANK  VOLUME 

DELTA  RESIDUE  THICKNESS 

COL  INITIAL  SOLUTE  CONCENTRATION 

S  SOLUTE  SOLUBILITY 

M  SOLUTE  MOLECULAR  WEIOHT 

ROCHEM  CHEM.  LIQUID  DENSITY 

GAM  INF  INF.  DILUT.  ACTIVITY  COEF. 


M3/MIN 

M2 

METER 

METER 

METER 

M3 

CM 

M0/M3 

MG/LITER 

GM/MOLE 

MG/M3 


PA  ATMOSPHERIC  PRESSURE  MM  HG 

UWIND  CONVECTIVE  EVAPORATION  VEL  M/SEC 

DIA  DIA.  OF  B/W  OPENING  METER 

UO  BLOWER  JET  VELOCITY  M/SEC 

KG  GAS  PHASE  MASS  TRANSFER  COEFF  CM/MIN 

R 1  JET  DEFLECTION  REGION  (0.150D)  METER 

R2  JET  DEFL  ♦  WALL  JET  DIST  METER 

KL  LIQUID  PHASE  MASS  TRANSFER  COEFF  CM/MIN 

MINIT  INITIAL  CHEMICAL  MASS  IN  SOLUTION  MG 


TLVC  THRESHOLD  LIMIT  VALUE,  CEILING 

TLVTWA  THRESHOLD  LIMIT  VALUE, 

TIME-WEIGHTED  AVERACE 
TLVSTL  THRESHOLD  LIMIT  VALUE, 

SHORT-TERM  EXPOSURE  LIMIT 


BLOCK  2  -  This  block  contains  three  entries. 

1.  TWORKN  -  Statement  defining  the  user  selected  in-tank  work 

activity  (N  -  option  selected). 

2.  TWORK  -  Duration  of  the  in-tank  work,  min. 

3.  Statement  defining  blower  status  (on  or  off)  during  tank  entry. 

BLOCK  3  -  The  third  block  displays  in  tabular  form  the  calculated  values 
for  nine  variables  at  the  end  of  each  integration  time  step.  The  table 


begins  and  ends  at  times  corresponding  to  the  start  of  ventilation  and 
the  termination  of  In-tank  work,  respectively.  At  each  time  step,  there 
are  two  lines  of  output. 

Line  1:  TIME  (MIN)  -  time  after  initiation  of  ventilation 
CV(PPM)  -  volumetric  vapor  concentration 
CV(MG/M3)  -  equivalent  mass  concentration  of  vapor 
TEMP(C)  -  vapor  discharge  temperature 
PV(MM-HG)  -  solute  vapor  pressure  at  TEMP(C) 

H  -  Dimensionless  Henry's  or  partition  coefficient 
CL(MG/M3)  -  solute  (chemical)  concentration  in  water 

Line  2:  KOL(CM/MIN)  -  overall  mass  transfer  coefficient  referenced 

to  liquid  phase 

MDOT(MG/MIN)  -  solute  evaporation  rate 
MEVAP(M)  -  cumulative  mass  of  evaporated  solute 

BLOCK  4  -  Block  4  summarizes  in  tabular  form  the  vapor  concentration-time 
history  in  the  tank  during  the  period  of  time  specified  by  WORK.  If  the 
blower  ON  option  was  selected,  then  concentration  should  decrease  with 
time.  The  calculated  concentrations  are  assessed  relative  to  the  TLV-C 
and  the  TLV-STEL. 

BLOCK  5  -  If  the  TLV-C  and  TLV-STEL  (interpreted  as  an  MAC)  are  not  exceeded 
at  any  time  during  TWORK,  then  the  in-tank  CV(PPM)  profile  is  integrated 
to  yield  the  average  exposure  concentration,  which  is  an  output  quantity. 

The  8— hour  TWA  exposure  is  calculated  and  compared  to  the  TLV-TWA,  and 
the  results  are  displayed  in  the  output. 

BLOCK  6  -  Block  b  is  a  computer-generated  graph  of  the  calculated  gas 
freeing  concentration-time  history  and  includes  plotted  experimental  data 
if  input  by  the  user. 

11.2.5  Hazard  Assessment 

The  hazard  assessment  is  programmed  in  both  TANKM  and  TANKP. 
The  groundrules  for  this  assessment  are  as  follows. 

o  Tlie  in-tank  exposure  is  to  a  single  chemical. 
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o  This  in-tank  exposure  is  the  only  one  that  is  received 
during  an  8-hour  period.  There  are  no  additional  ex¬ 
posures  to  the  given  chemical  or  to  other  chemicals. 

o  Exposures  are  evaluated  relative  to  the  Threshold  Limit 
Values  (TLVs)  that  are  published  by  the  American  Conferenc 
of  Governmental  Industrial  Hygienists  (ACGIH)  in  Reference 
11. 

o  The  Short  Term  Exposure  Limit  (STEL)  is  interpreted  as 
a  Maximum  Allowable  Concentration  (MAC). 

All  of  the  data  that  is  needed  for  this  evaluation  has  been  either  input 
to  or  calculated  within  TANKM, 

For  simplicity,  the  hazard  assessment  is  indicated  as  a 
block  operation  in  the  TANKM  Flow  Chart  in  Section  II. 4.  The  details  of 
the  assessment  logic  are  presented  below. 

The  first  branch  is  determined  by  the  input  value  of  IBLOW, 
which  determines  if  the  blower  is  on  or  off  during  tank  entry. 
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4.  The  C,^^  is  compared  to  the  TLV-IVA 

a.  If  C^^  is  less  than  TLV-TWA,  then  an  output  appears. 

"Predicted  Single  Exposure  is  Acceptable  With  Respect  to 
TLV-C,  TLV-STEL  and  TLV-TWA." 

b.  If  the  TLV-TWA  is  exceeded,  the  following  message  appears. 
"Predicted  Eight -Hour  TWA  Exposure  Exceeds  the  TLV-TWA. 

Hazardous  Conditions  May  Exist.  Single  Exposure  Does  Not 
Exceed  TLV-C  or  TLV-STEL." 

This  is  the  end  of  the  assessment  for  the  NO  branch  in  Item  1. 

5.  The  YES  branch  in  Item  1  will  produce  a  printout  of  the  instantaneous 
exposure  times  and  the  corresponding  calculated  concentrations  where 
the  TLV-C  or  TLV-STEL  is  exceeded.  These  occurrences  may  include  all 
or  part  of  the  entry  period,  and  each  occurrence  is  labeled  "Hazardous 
Working  Conditions." 

6.  The  integrated  average  exposure  concentration  is  calculated  and  dis¬ 
played 

"Predicted  Average  In-Tank  Exposure  as  Measured  by  a  Dosimeter = ppm" 

7.  This  average  exposure  is  then  compared  to  the  TLV-C  or  the  TLV-STEL. 

If  C  exceeds  TLV-C  or  TLV-STEL,  the  assessment  executes  I  tern  8, 
exp 

otherwise  it  proceeds  to  Item  9. 

8.  The  program  then  prints  out  the  following  message. 

"Dosimeter  Monitoring  Would  Indicate  That  The  Average  In-Tank 
Exposure  Exceeds  the  TLV-C  or  TLV-STEL  For  This  Chemical  Vapor, 
and  a  Hazardous  Working  Condition  Exists.  Reduce  Exposure  Below 
Either  TLV  Before  Assessing  the  TWA  Exposure." 

This  completes  the  assessment  for  C  greater  than  TLV-C  or  TLV-STEL. 

exp 

9.  A  negative  response  in  Item  7  produces  the  following  message. 

"Dosimeter  Monitoring  Would  Indicate  That  The  Average  In-Tank 
Exposure  is  Acceptable  and  Does  Not  Exceed  the  TLV-C,  or  TLV-STEL 
For  This  Chemical  Vapor.  However,  Instantaneous  Concentrations 
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Do  Exceed  These  Limits.  Real-Time  Measurements  of  Vapor 


Concentration  May  Be  Indicated. " 

10.  Because  C  does  not  exceed  (he  TLV-C.  or  TLV-STKL,  the  o-liour  Lime 
exp 

weighted  average  exposure  C  Is  calculated  and  displayed  as  in 

IwA 

Item  8. 


11.  C_,.  is  then  compared  to  the  TLV-TWA 

TWA 

a.  If  is  less  than  TLV-TWA,  the  message  is 

"Monitoring  Would  Also  Indicate  That  The  Exposure  is 
Acceptable  With  Respect  to  the  TLV-TWA." 

b.  If  C  is  greater  than  TLV-TWA,  the  following  ouput 

1 WA 

message  appears. 

"Predicted  Eight-Hour  Time  Weighted  Average  Exposure  Exceeds 
The  TLV-TWTA.  Hazardous  Conditions  May  Exist." 

This  completes  the  assessment  for  the  BLOWER  ON  option. 


BLOWER  OFF 

1.  Because  the  blower  is  off  during  tank  entry,  the  exposure  concentration 
is  constant  and  equal  to  C(tM>.  The  program  checks  C.(t  )  against  TLV-C 
or  TLV-STEL.  If  these  levels  are  exceeded,  then  Item  4  is  executed. 
Otherwise,  proceed  to  Item  2. 

2.  The  8-hour  TWA  exposure  is  calculated  as  described  earlier.  Two 
messages  appear. 

"Predicted  Average  Exposure  During  Tank  Entry  ~  ppm" 

"Predicted  Eight-Hour  Time  Weighted  Average  Exposure  =  ppm" 

3.  The  8-hour  TWA  exposure  is  then  compared  to  the  TLV-TWA.  Depending 
upon  the  result  of  this  comparison,  the  message  in  either  Item  4a  or 
4b  of  the  BLOWER  ON  assessment  will  he  printed. 

This  completes  the  assessment  for  the  NO  branch  in  Item  1. 

4.  The  assessment  performs  Item  5  of  the  BLOWER  ON  option. 

5.  The  messages  in  Items  6  and  8  of  the  BLOWER  ON  option  are  then  displayed. 

This  completes  the  assessment  for  the  BLOWER  OFF  option. 
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II. 2. 6  Example  of  TAN KM 


The  example  that  was  selected  to  demonstrate  the  inter¬ 
active  features  of  PRETNK  and  the  execution  of  TANKM  describes  the  gas 
freeing  of  an  acetone  tank  following  washing.  Acetone  is  infinitely 
soluble  in  water. 

The  example  includes  five  elements  of  hard  copy. 

Element  No.  1  -  This  first  element  consists  of  the 
conversational  interaction  between  the  user  and  the  i’RF.TNK  driver.  If 
the  user  is  operating  from  a  VDT,  the  questions  and  responses  will  appear 
on  the  screen,  but  there  will  bo  no  hard  copy  record  of  the  input  dialog. 
In  this  example,  a  Digital  Decwriter  II  was  used  so  that  the  interactive 
input  data  would  be  clearly  identified  in  permanent  dialog  record. 

Element  No,  2  -  This  element  represents  the  terminal  input 
commands  and  system  responses  that  set  up  the  raster  scan  for  the  plot, 
routine.  This  element  can  be  performed  following  PRETNK  input  or  after 
Element  No.  4. 

Element  No.  3  -  A  copy  of  the  output  of  the  TANK Ml  data 
file  is  presented  as  Element  No.  3.  This  element  contains  the  input  data 
in  a  format  that  is  compatible  for  transfer  to  TANKM.  Element.  No.  3  is 
not  automatically  presented,  it  must  be  requested  by  the  user. 

Element  No.  4  -  This  element  displays  the  execution  output 
of  TANK  according  to  the  block  sequence  that  was  described  in  a  previous 
section. 

Element  No,  5  -  Finally,  the  calculated  con cent rat ion- time 
history  and  experimental  data  (if  available)  are  displayed  in  graph  form. 

Comments  that  pertain  to  this  example  arc  presented 

below. 

o  Acetone  is  infinitely  soluble  in  water.  Therefore, 
Henry's  coefficient  is  calculated  using  the  activity 
coefficient  approach. 

o  An  artificially  large,  finite  value  of  the  solubility 
limit  S  was  input  in  the  event  that  the  default  option 
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on  (,  would  have  been  exercised.  This  large  value  would 

prevent  the  calculated  C  from  <•  xceed  I  n  g  a  solubility 

()!, 

limit  wliieh  would  result  in  (I  being  set  e'|ual  1 o  S.  As 
this  option  was  not  exorcised,  the  pseudo- input  lor  S  is 
i rre levant. 

o  Tank  entry  was  assumed  to  take  place  14  minutes  afLer 
gas  freeing  was  initiated.  The  blower- in  option  was 
selected  during  tank  entry  when  tank  coatings  were  in¬ 
spected  and  thicknesses  measured  for  44  minutes.  The 
value  of  TM  is  hypothetical  because  vapor  concentration 
is  nearly  6%  LEL  and  would  not  be  an  acceptable  entry 
condition.  It  was  selected  to  demonstrate  an  important 
branch  in  the  hazard  assessment  logic. 

o  Initially,  mass  transfer  of  acetone  is  from  the  vapor 
phase  to  liquid  phase,  the  evaporation  rate  is  negative, 
the  mole  fraction  and  concentration  of  acetone  in  solution 
increase  with  time.  The  driving  force  for  evaporation 
is  negative.  As  time  proceeds,  the  vapor  space  con¬ 
centration  declines  because  of  solute  absorption  and 
ventilation  discharge  of  vapor;  the  driving  force  trend 
is  reversed,  and  solute  evaporation  begins.  As  MEVAP  is  the 
time  integral  of  ni,  there  is  a  tame  lag  between  the  onset 
of  positive  m  and  n  positive  evaporated  mass  of  chemical. 

o  The  tabulated  time  history  of  calculated  variables  ends 
at  the  time  of  egress  from  the  tank. 

o  The  hazard  assessment  indicates  that  exposure  concentra¬ 
tion  exceeded  the  acetone  TLV-STF.L  during  the  first  four 
minutes  of  intank  work.  These  exceedences  would  not  be 
detected  by  a  conventional  integrating  dosimeter;  the 
result  would  be  an  indication  that  the  short-term  exposure 
was  acceptable.  because  the  integrated  exposure  did  not 
exceed  the  .8  TEL,  the  assessment  then  calculated  that  the 
8-hour  TWA  exposure  to  this  single  event  did  not  exceed 
the  TL'  -TWA,  which  was  750  ppm. 
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TANKM  EXAMPLE 


>  RUN  PRETNK 

PROGRAM  PRETNK  IS  AN  INTERACTIVE  PROGRAM  DESIGNED  FOR 
THE  USER  TO  EASILY  INPUT  DATA  COMPATIBLE  FOR  PROGRAM 
TANKM  OR  TANKP 

1.  TANKM  -  PROGRAM  THAT  CALCULATES  THE  CONCENTRATION¬ 

TIME  HISTORY  OF  CHEMICAL  VAPORS  DISCHARGED 
cROM  A  TANK  DURING  DILUTION  VENTILATION  IN 
THE  PRESENCE  OF  CHEMICAL  SOLUTE  EVAPORATION 
FROM  AN  AQUEOUS  SOLUTION  OF  RESIDUAL  CARGO 
ON  THE  TANK  FLOOR. 

2.  TANKP  -  PROGRAM  THAT  CALCULATES  THE  CONCENTRATION¬ 

TIME  HISTORY  OF  CHEMICAL  VAPOR  DISCHARGED 
FROM  A  TANK  DURING  DILUTION  VENTILATION  IN 
THE  PRESENCE  OF  EVAPORATION  OF  PURE 
CHEMICAL  RESIDUES  FROM  THE  TANK  WALLS  AND 
FLOOR. 

SELECT  A  1  OR  2  TO  INDICATE  FOR  WHICH  PROGRAM  YOU 
WISH  TO  INPUT  DATA 
1 

INPUT  TEST  NUMBER 
1 

DO  YOU  HAVE  TANK  DIMENSIONS  ( Y/N ) ? 

Y 


ENTER  TANK  LENGTH *  WIDTH*  AND  DEPTH  IN  METERS 
12.19  6.858  13.26 


DO  YOU  KNOW  THE  BLOWER  FLOW  RATE  (Y/N)? 
Y 


INPUT  MEASURED  FLOW  RATE  (M3/MIN) 
99.41 


ENTER  DIAMETER  OF  BUTTERWORTH  OPENING  IN  METERS 
0.305 


HOW  DO  YOU  WANT  TO  CALCULATE  HENRY  S  CONSTANT? 

1.  HENRY  S  CONSTANT  BY  MACKAY  S  METHOD 

2.  HENRY  S  CONSTANT  BY  BILLING  S  METHOD 
SELECT  A  1  OR  2 

1 

INPUT  GAMINF,  ACTIVITY  COEFFICIENT  AT  INFINITE 
DILUTION  (CHEMICAL  IN  WATER) 

7.78 

INPUT  Cl*  C2 .  CURVE  FIT  COEFFICIENTS  OF  LIO.  DENSITY 
AS  FUNCTION  OF  TEMP.  JfcROCHEM ( MG/M3 )  =  C1+C2*T*  T(C> 
0.81  -0 . 1075E-02 

ENTER  S*  SOLUTE  VAPOR  SOLUBILITY  IN  MG/LITER 
1 .0E15 


DO  YOU  KNOW  THE  POSTWASH  RESIDUE  THICKNESS  AND  SOLUTE 
CONCENTRATION  (Y/N)? 

Y 

ENTER  RFSTTillF  THICKNESS.  AND.  SO.L.UTE.  CONCENTRATION  . 
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0.5  . 1E7 

ENTER  IN  ATMOSPHERIC  PRESSURE  IN  MM  HG 
760 

ENTER  A,  B,  C.  CHEMICAL  VAPOR  PRESSURE  CONSTANTS 
7.158  1231.0  231.8 

IS  PREVENTILATION  VAPOR  CONCENTRATION  KNOWN  ( Y/N ) 7 
Y 

ENTER  CONCENTRATION  IN  PPM 
0.5E4 


ENTER  FOR  INTEGRATION  ,  TI  (INITIAL  TIME)  »  AND  DT 
(INTEGRATION  TIME  STEP).  DT  MUST  BE  A  WHOLE  NUMBER. 

TM  AND  TM+TWORK  MUST  BE  MULTIPLES  OP  DT . 

0.0  2 

INPUT  VENTILATION  TIME.  TM.  TO  MAN  ENTRY 
14.0 

OPTIONS  PUR  DURATION  OF  MAN  ENTRY,  TWORK  IN  MIN.,  IS  AS 

follows: 

1.  BRIEF  VISUAL  INSPECTION  AND  ODOR  DETERMINATION 
WITH  CARGO  SURVEYOR. 

TWORK  =1-2  MIN. 

2.  INSPECT  TANK  COATINGS  AND  MEASURE  THICKNESS 

TWORK  =15-45  MIN. 

3.  HAND  MUCKING  OF  RESIDUE  WITH  TOWELS  AND  RAGS 
(RELATIVELY  DIRTY  TANK) 

TWORK  ■  90  MIN. 

4.  SWEEP  DEBRIS  FROM  TANK  BOTTOM  AND  WIPE  PUMP  SUMP 
(RELATIVELY  CLEAN  TANK) 

TWORK  =  40  MIN. 

5.  USER  SPECIFIES 

SELECT  AND  ENTER  A  1-5  TO  INDICATE  WORK  DESCRIPTION 
2 

INPUT  DURATION,  IN  MINUTES,  OF  MAN  ENTRY  IN  TANK 
44 

DO  YOU  KNOW  THE  VENTILATION  TIME-TEMPERATURE  DISCHARGE 
HISTORY  (Y/N)  ? 

Y 

ENTER  NUMBER  OF  TIME  HISTORY  VALUES 
4 

ENTER  TIME  -  TEMPERATURE  TABLE  I 
TABT.M(l)  ,  TABTEM(l) 

•  • 

TABTIM(NUMTAB)  ,  TABTEM ( NUMTAB ) 

0.0  8 . V 
10.0  42.2 
40.0  36 . 6 
80.0  34.4 

ENTER  OCCUPATIONAL  EXPOSURE  LIMITS  ( ACGIH ) 

ALL  EXPOSURE  LIMITS  ARE  INPUT  IN  PPM 

DOES  THE  COMPOUND  HAVE  A  CEILING  TLV  (Y/N)7 

N 

INPUT  TLVTWA  AND  TLVSTEL 

75.0,.  10QO.  .  .  . . . . . . 
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ENTER  Mr  SOLUTE  MOLECULAR  UT.  IN  GM/MOLE 

58.08 

ENTER  R2r  JET  DEELECTION  +  WALL  JET  DISTANCE  IN  METERS 
7.47 

INPUT  NUMBER  OF  POINTS  IN  EXPERIMENTAL  DATA  r  MAXIMUM 
OF  200  POINTS  (ENTER  0  (ZERO)  IF  NO  POINTS) 

14 

INPUT  TIME  AND  CONCENTRATION  FOR  EACH  POINT 
ETIME(l)  r  ECVPPM(l) 

.  r  . 

ETIME ( NUMEXP  >  r  ECUPPM ( NUMEXP ) 

0.0  5000. 

5.  3700. 

10.  2550. 

15.  1700. 

20.  980. 

25.  530. 

30.  310. 

35,  212. 

40.  150. 

45.  90. 

50.  77. 

55.  56. 

60 «  46 « 

65.  29. 

1.  PERFORM  MINIT  CALCULATION 

2.  BYPASS  MINIT  CALCULATION 
SELECT  1  OR  2 


WILL  BLOWER  BE  OPERATING  DURING  TANK  ENTRY  ( Y/N)? 
Y 


78TANKM 
>RUN  TANKM 


DENSIMETRIC  FROUDE  NO. 


787 . 666 


DENSIMETRIC  FROUDE  NUMBER  AT  BEGINNING 
OF  VENTILATION  IS  GREATER  THAN  50?  BLOWER  CAPACITY 
IS  SUFFICIENT  FOR  THE  VENTILATING  JET  TO  PENETRATE 
THE  VAPOR  SPACE  AND  IMPINGE  ON  THE  T ANN  BOTTOM. 
COMPLETE  JET  PENETRATION  AND  IMPINGEMENT  ENSURES 
THAT  THE  VAPOR  CONCENTRATION  IN  THE  ULLAGE  SPACE 
IS  HOMOGENOUS  AND  THAT  THE  WELL-MIXED  MODELING 
ASSUMPTION  IS  VALID.  FOR  FURTHER  DETAILS?  CONSULT 
REFERENCE  4  OF  THE  CONTRACT  FINAL  REPORT. 


TT30  —  STOP 

>RUN  PL TANK  _ 

>PIP  SCRATCH. DAT5*/DE 
>PIP  LP.LST=TANKMO. DAT/RE 

>*  DO  YOU  WANT  A  HARD  COPY  OF  TANKMO  <Y/N)  ?  CSDJ  Y 
>PIP  LP.LST/SP 

>// 


>TYPE  TANKMI.HAT 
1 

0. 12190E+02  0 . 68580E  +0 1  0.13260E+02 
0.99410E+02  0.50000E+00 
0 . 30500E+00  0 . 58080E+02 

0. 10000E+16  0 . 77800E+01  0 . 81000E+00-0 . 1 0750E-02 
0.71580E+01  0. 12310E+04  0.23180E+03 
0 . 76000E+03  0 ♦ 74700E+01 
0 • 10000E+07  0.50000E+04 

0.00000E+00  0.1 4000E+02  0.44000E+02  0.20000E+01 

t 

0.000  10.000  40.000  80.000 

8.900  42.200  36.600  34.400 

2  1 
14 

0.0000  5000.0000 

5.0000  3700.0000 

10.0000  2550.0000 

15.0000  1700.0000 

20.0000  980.0000 

25.0000  530.0000 

30.0000  310.0000 

35.0000  212.0000 

40.0000  150.0000 

45.0000  90.0000 

50.0000  77.0000 

55.0000  56.0000 

60.0000  46.0000 

65.0000  29.0000 

2Y 

0 . 00000E+00  0 • 75000E+03  0.10000E+04 

> 


DENS I METRIC  FROUDE  NO 


707.  666 


DENSIMETRIC  FROUDE  NUMBER  AT  BEGINNING 
OF  VENTILATION  IS  GREATER  THAN  50.  BLOWER  CAPACITY 
IS  SUFFICIENT  FOR  THE  VENTILATING  JET  TO  PENETRATE 
THE  VAPOR  SPACE  AND  IMPINGE  ON  THE  TANK  BOTTOM. 
COMPLETE  JET  PENETRATION  AND  IMPINGEMENT  ENSURES 
THAT  THE  VAPOR  CONCENTRATION  IN  THE  ULLAGE  SPACE 
IS  HOMOGENOUS  AND  THAT  THE  WELL-MIXED  MODELING 
ASSUMPTION  IS  VALID.  FOR  FURTHER  DETAILS.  CONSULT 
REFERENCE  4  OF  THE  CONTRACT  FINAL  REPORT. 


*****  TEST  NO.  1  ***** 


ONE-TIME  OUTPUTS 


VARIABLE 

DESCRIPTION 

UNITS 

RESULT 

HEVAL 

“1.  H(MACKAY);  «=2,  H<  DILLING  ) 

****** 

**** 1 **** 

G 

BLOWER  FLOW  RATE 

M3/MIN 

0. 

99410E+02 

AREA 

LIQUID  SURFACE  AREA 

M2 

0. 

B3599E+02 

L 

TANK  LENGTH 

METER 

0. 

12190E+02 

W 

TANK  WIDTH 

METER 

0. 

685B0E+01 

D 

TANK  DEPTH 

METER 

0. 

I3260E+02 

V 

TANK  VOLUME 

M3 

0 

110B5E+04 

DELTA 

RESIDUE  THICKNESS 

CM 

0. 

50000E+00 

COL 

INITIAL  SOLUTE  CONCENTRATION 

MG/M3 

0. 

10000E+07 

S 

SOLUTE  BOLUBILITY 

MG/LITER 

0. 

10000E+16 

M 

SOLUTE  MOLECULAR  WEIGHT 

GM/MOLE 

0 

5BOBOE+02 

ROCHEM 

CHEM.  LIQUID  DENSITY 

MG/M3 

0. 

B0O43E+09 

OAM INF 

INF  DILUT  ACTIVITY  COEF 

******* 

0. 

77B00E+01 

PA 

ATMOSPHERIC  PRESSURE 

MM  HG 

0. 

76000E+03 

UWIND 

CONVECTIVE  EVAPORATION  VEL 

M/SEC 

0. 

59051E+00 

DIA 

DIA.  OF  B/W  OPENING 

METER 

0. 

30500E+00 

UO 

BLOWER  JET  VELOCITY 

M/SEC 

0. 

22677E+02 

KG 

r AS  PHASE  MASS  TRANSFER  COEFF 

CM/MIN 

0. 

62324E+01 

R1 

JET  DEFLECTION  REGION  (0.  3D) 

METER 

0. 

19B90E+01 

R2 

JET  DEFL  ♦  WALL  JET  DIST 

METER 

0 

74700E+01 

KL 

LIQUID  PHASE  MASS  TRANSFER  COEFF 

CM/MIN 

0. 

2S726E+00 

TLVC 

THRESHOLD  LIMIT  VALUE,  CEILING 

PPM 

0. 

o 

o 

+ 

ID 

O 

o 

o 

o 

o 

TLVTWA 

THRESHOLD  LIMIT  VALUE, 

TIME-WEIGHTED  AVERAGE 

PPM 

0. 

75000E+03 

TLVSTL 

THRESHOLD  LIMIT  VALUE, 

SHORT-TERM  EXPOSURE  LIMIT 

PPM 

0. 

10000E+04 

TW0RK2 

— 

INSPECT  TANK  COATINGS  AND  MEASURE 

THICKNESS 

TWORK 

R 

44.  0000  MIN 

BLOWER 

IS 

ON  DURING  MAN  -  ENTRY  INTO  TANK 

TIME (MIN) 

CV(PPM)  CV ( MC/M3 )  TEMP ( C )  PV(MM-HG) 

GAMMA 1  KOL  <  CM/MIN )  MDOT (MG/MIN) 

H 

MEVAP(MG) 

CL ( MG/M3 ) 

XKLIQ  MOL  FR  ACT  I  Oh 

0.  OOOOE+OO 

0. 5000E+04  0  1256E+05  0.  B900E+01  0.  1106E+03 

0  7780E+01  0.  5385E-02  -0  5969E+05 

0  8B03E-03 

0  OOOOE+OO 

0  1000E+07 

0-  31 1  IE-03 

0  2000E+01 

0.  4243E+04  0  1041E+05  0.  1556E+02  0.  1519E+03 

0.  7780E+01  0  7177E-02  -0  4537E+05 

0.  11B1E-02 
-0  5253E+05 

0  1251E+07 

0  3B93E-03 

0  4000E+01 

0.  3601E+04  0  B635E+04  0.  2222E+02  0  2051E+03 

0.  77B0E+01  0  9399E-02  -0.  3224E+05 

0  1559E-02 
-0.  9133E+05 

0  1 436E+07 

0  4470E-03 

0  &000E+01 

0.  30&0E+04  0  7175E+04  0.  28B8E+02  0.  2727E+03 

0.  7780E+01  0.  1210E-01  -0.  2001E+05 

0  202BE-02 
-0. 1 175E+06 

0.  1561E+07 

0  4B59E-03 

0  8000E+01 

0,  2604E+04  0.  5973E+04  0  3554E+02  0.  3576E+03 

0.  7780E+01  0.  1 535E-01  -0.  S363E+04 

0.  2601E-02 
-0. 1317E+06 

0.  1629E+07 

0  507  IE-03 

0  1000E+02 

0.  2221E+04  0.  498BE+04  0.  4220E+02  0.  4627E+03 

0.  7780E+01  0.  1916E-01  0,  2QB4E+04 

0  3295E-02 
-0  1350E+06 

0.  1 644E+07 

0.  51 18E-03 

0  1200E+02 

0  1857E+04  0  4175E+04  0.  4183E+02  0.  4562E+03 

0  77B0E+01  0.  1B93E-01  0.  5412E+04 

0. 3252E-02 
-0. 13I2E+06 

0  1626E+07 

0  5061E-03 

0  1400E+02 

0  1555E+04  0.  3501E+04  0.  4145E+02  0  449BE+03 

0.  77B0E+01  0.  1871E-01  0.  7B6BE+04 

0. 3211E-02 
-0. 1246E+06 

0.  1 593E+07 

0  4961E-03 

0  1600E+02 

0  1305E+04  0.  2941E+04  0  4108E+02  0.  4435E+03 

0  7780E+01  0  I848E-01  0  9633E+04 

0. 3169E-02 
-0  115BE+06 

0.  1 551E+07 

0.  4B30E-03 

0  1800E+02 

0  1097E+04  0  2473E+04  0  4071E+02  0  4372E+03 

0.  7780E+01  0.  1B26E-01  0  1085E+05 

0  3 1 2BE-02 
-0  1056E+06 

0  1 502E+07 

0.  4677E-03 

0  2000E+02 

0  923BE+03  0  20B7E+04  0  4033E+02  0.  4310E+03 

0.  7780E+01  0.  I803E-:01  0  U64E+05 

0  30B7E-02 
-0  9435E+05 

0  1 44BE+07 

0  450BE-03 

0. 2200E+02 

0.  7799E+03  0  1764E+04  0.  3996E+02  0-  4249E+03 

0  77B0E+01  0  17B1E-01  0  I210E+05 

0. 3047E-02 
-0  B24BE+05 

0  1391E+07 

0.  4331E-03 

0  2400E+02 

0.  6600E+03  0.  1493E+04  0.  3959E+02  0  418BE+03 

0.  7780E+01  0.  I739E-0I  0  1229E+05 

0  3007E-02 
-0.  7029E+05 

0  I333E+07 

0.  4149E-03 

0. 2600E+02 

0.  3599E+03  0.  I270E+04  0.  3921E+02  0.  412BE+03 

0.  7780E+01  0.  1738E-01  0  1229E+05 

0. 296BE-02 
-0. 5799E+05 

0  1274E+07 

0  3965E-03 

0  2B00E+02 

0.  47&3E+03  0  1081E+04  0.  3BB4E+02  0.  4069E+03 

0.  77B0E+01  0  1716E-01  0.  1214E+05 

0. 2929E-02 
-0  4577E+05 

0.  1215E+07 

0.  37B3E-03 

0  3000E+02 

0.  4064E+03  0  9236E+03  0. 3847E+02  0  401 1E+03 

0.  7780E+01  0.  1695E-01  0  1188E+05 

0  2B90E-02 
-0.  3376E+05 

0.  1 1 58E+07 

0  3604E-03 

0. 3200E+02 

0  3477E+03  0.  7913E+03  0.  3B09E+02  0.  3953E+03 

0.  77B0E+01  0.  1674E-01  0  1154E+05 

0.  2B52E-02 
-0  2205E+05 

0.  1 102E+07 

0.  3429E-03 
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T I  ME  <  M I N ) 

CV(PPM)  C V ( MG/M3 )  TEMP(C)  PV(MM-HG) 

©AMMA1  KOL ( CM/MIN  >  MDOT ( MC/M I N ) 

H 

MEVAP ( MG ) 

CL  <  MG /M3 ) 

XllUQ  MOL  FRACTION) 

0  3400E+02 

0.  2983E+03  0  6B01E+03  0  3772E+02  0  3896E+03 

0.  7780E+01  0  1653E-01  0  1114E+05 

0  2B14E-02 
-0.  1072E+05 

0  104BE+07 

0  3260E-03 

0. 3600E+02 

0.  2371E+03  0  5B65E+03  0  3735E+02  0  3B40E+03 

0  7780E+01  0  1632E-01  0.  1070E+05 

0  2777E-02 

0  2025E+03 

0  9954E+06 

0  3097E-03 

0. 3800E+02 

0.  2222E+03  0  5074E+03  0.  3&97E+02  0  3784E+03 

0.  7780E+01  0  1612E-01  0.  1024E+05 

0. 2740E-02 

0  1 067E  *-05 

0  9453E+06 

0  294 IE -03 

0  4000E+02 

0  1927E+03  0.  4406E+03  0  3660E+02  0  3729E+03 

0  7780E+01  0  1591E-01  0  9770E+04 

0  2703E-02 
0.  2068E+05 

0. 8974E<-0fc 

0  2792E-03 

0.  4200E+02 

0.  1679E+03  0  3841E+03  0  3649E+02  0  3713E+03 

0  7780E+01  0.  1585E-01  0  9395E+04 

0. 2692E-02 

0  3026E+05 

0  8515E+06 

0  2649E-03 

0. 4400E+02 

0.  1469E+03  0  3362E+03  0  3638E+02  0.  3697E+03 

0.  7780E+01  0  1579E-01  0  9007E+04 

0  26B2E-02 
0. 3946E+05 

0. B075E+06 

0  2512E-03 

0  4600E+02 

0.  1291E+03  0  2936E+03  0  3627E+02  0.  36B1E+03 

0.  7780E+01  0.  1 574E-0J  0  B612E+04 

0  2671E-02 
0.  4B27E+05 

0  7653E+06 

0  2381E-03 

0. 4S00E+02 

0  1140E+03  0  2609E+03  0.  3616E+02  0.  3665E+03 

0  77BOE+01  0  1368E-01  0  82 . 7E+04 

0  2660E-02 

0  5669E+05 

0  7251E+06 

0.  2256E-03 

0  3000E+02 

0  1010E-KJ3  0  2313E+03  0.  3605E+02  0  3649E+03 

0  7780E+01  0.  1562E-01  0.  7B26E+04 

0  2&50E-02 

0  6471E+05 

0.  6B67E+Q6 

0.  2136E-03 

0  5200E+02 

0  89B8E+02  0.  2059E+03  0  3994E+02  0  3633E+03 

0  77B0E+01  0.  1936E-01  0.  7442E+04 

0.  2639E-02 

0  72')4E+05 

0  A502E+06 

0.  2022E-03 

0  5400E+02 

0.  8032E+02  0  1841E+03  0  33B3E+02  0  3617E+03 

0  7780E+0I  0.  1930E-01  O7O60E+O4 

0. 2629E-02 
0. 7960E+05 

0  6155E+06 

0.  1914E-03 

0  5600E+02 

0  7206E+02  0  1652E+03  0  3572E+02  0  3601E+03 

0.  770OE+O1  0.  1544E-01  0.  6705E+04 

0  261BE-02 
0. B64BE+05 

0.  5825E+06 

0.  1812E-03 

0. 3Q00E+02 

0  6490E+02  0  1489E+03  0.  3561E+02  0  35B6E+03 

0  77B0E+01  0  1538E-01  0  6353E+04 

0  260BE-02 

0  9301E+05 

0  5513E+06 

0  1715E-03 

EVALUATION  OF  VAPOR  CONCENTRATIONS  DURING  MAN-ENTRY 


TANK  IS  ENTERED  AT  TIME  -  14.0  MIN 

TANK  IS  EXITED  AT  TIME  ■  58.0  MIN 


PREDICTED  INSTANTANEOUS  EXPOSURE  CONCENTRATIONS  EXCEED  THE  TLV-STEL 


TIME  (MIN) 

CONCENTRATION  (PPM) 

14.  00 

1555.  1 

16.  00 

1304.  7 

18.  00 

1096.  7  . 

HAZARDOUS  WORKING  CONDITIONS 
HAZARDOUS  WORKING  CONDITIONS 
HAZARDOUS  WORKING  CONDITIONS 


PREDICTED  AVERAGE  IN-TANK  EXPOSURE  AS  MEASURED  BY  A  DOSIMETER  -  41B.  85  PPM 

DOSIMETER  MONITORING  WOULD  INDICATE  THAT  THE 

AVERAGE  IN-TANK  EXPOSURE  IS  ACCEPTABLE  AND 

DOES  NOT  EXCEED  THE  TLV-STEL  FOR  THIS  CHEMICAL  VAPOR. 

HOWEVER.  INSTANTANEOUS  CONCENTRATIONS  DO 
EXCEED  THESE  LIMITS.  REAL  TIME  MEASUREMENTS 
OF  VAPOR  CONCENTRATION  MAY  BE  INDICATED. 

PREDICTED  E I OHT— HOUR  TIME  WEIGHTED  AVERAOE  EXPOSURE  =  38.  39  PPM 

MONITOR INO  WOULD  ALSO  INDICATE  THAT  THE 
EXPOSURE  IS  ACCEPTABLE  WITH  RESPECT  TO  THE 
TLV-TWA 
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o  The  graph  presents  a  visual  display  of  the  cal cu La  ted 
and  experimental  vapor  conoen trat lon-t lme  histories 
at  the  ventilation  discharge  from  I  he  tank.  The 
reversal  of:  solute  absorption  to  evaporation  produces 
a  smooth  transition  in  the  C(t)  history  at  approximately 
10  minutes  into  gas  freeing. 

o  In  this  example,  mass  transfer  between  liquid  and  vapor 

phases  is  controlled  by  the  vapor  phase.  The  liquid 

phase  offers  little  resistance  to  mass  transfer.  That  is, 

1/lc,  «  1/  (Hk  )  and  1/k  *  1/  (Hk  ), 

x  g  0L  g 


1/k, 


0L 


1/k. 


1/ (Hk  ) 

g 


=  total  resistance  to  mass 
=  liquid  phase  resistance 
=  vapor  phase  resistance 


transfer 


II. 3  Elements  of  Program  TANKP 

II. 3.1  Model  Description  Summary 

The  TANKP  model  is  based  on  the  numerical  integration  of  an 
inhomogeneous,  ordinary,  time -dependent  differential  equation  for  the  con¬ 
servation  of  chemical  mass  in  the  vapor  space.  The  inhomogenity  is  a  source 
term  that  represents  mass  addition  to  the  vapor  space  as  a  result  of 
evaporation  of  pure  chemical  residues  from  the  tanks  walls  and  tank  bottom. 
Tank  vapor  concentration  is  the  dependent  variable. 

A  mass  balance  in  the  vapor  phase  yields 

-  »G  -  CQ  (13) 

where  -V-  =  tank  volume 

C  =  mass  concentration  of  vapor  in  air 
Q  =  blower  flow  rate 

m^  =  instantaneous,  total  evaporation  rate  of  pure 
chemical  from  residual  films  on  the  tank  walls 
and  bottom. 
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As  in  the  TAN  KM  program,  this  conservation  of  mass  formulation  assumes 
that  the  contents  of  the  vapor  space  are  well-mixed  so  that  vapor  con¬ 
centrations  are  uniform  in  space.  A  consequence  of  this  assumption  is 
that  the  local  air  velocity  over  the  tank  Internal  sui  t  aces,  and  residual 
chemical  films,  is  constant. 

The  evaporation  rate  model  for  fh  is  based  on  Reference 
12.  Gray's  model  for  the  evaporative  flux  of  vapor  from  an  element  of 
liquid  surface  is  expressed  by  the  following  equation. 


where 


dA  RT  F 
G 


m  =  local  mass  evaporation  rate 
A  =  local  element  of  liquid  surface  area 
D  =  diffusion  coefficient 
M  =  molecular  weight 

=  vapor  pressure  of  chemical  film  corresponding  to  the 
local  wall  temperature  or  tank  bottom  temperature 
R  =  Universal  gas  constant 

T  =  temperature  of  in- tank  vapor  space,  assumed  equal 
G 

to  temperature  of  vapor  discharged  from  tank  during 
gas  freeing 

F  =  thickness  of  stagnant  interface  film  that  exists 
between  the  residual  chemical  layer  and  the  air 
flow  over  the  liquid  layer 


Equation  14  assumes  that  the  driving  force  for  evaporation  is  the  chemical 
vapor  pressure,  i.e.  P  >>  partial  pressure  of  vapor  in  the  tank  atmosphere,. 
The  analytical  expression  for  diffusion  coefficient  is 


3/2 

0.425 

_ G _ 

P(MTU/G)1/2 

b 


(15) 


where 


T,  =  chemical  boiling  point  at  atmospheric  pressure 
b 

G  =  liquid  surface  tension 


4b 


Finally,  ar.  empirical  film  thickness  as  described  by  Gray  is 


1/F  =  0.217  S  ~(K9  (S  u)0*625  Sc 
c  c 


0.3 


(16) 


where 


S  =  Schmidt  number,  v/l) 
c 

v  =  kinematic  viscosity  of  air 

U  =  effective  air  velocity  over  the  liquid  surfaces 


The  effective  air  velocity,  U,  that  is  contained  in 
Equation  16  is  identical  to  the  velocity  that  is  used  in  the 

TANKM  model.  The  assumptions  and  equations  that  are  used  in  calculating 
this  velocity  are  the  same  in  both  cases.  Consequently,  the  user  is 
referred  to  Section  II. 2  for  details  concerning  the  model  for  U. 

The  modeling  assumptions  permit  the  local  evaporation 

process  to  be  decoupled  from  the  ventilation  process  in  the  sense  that 

local  evaporation  flux  rates  can  be  integrated  over  the  liquid  surface 

areas  to  obtain  an  m  (t)  history  for  numerical  input  to  Equation  13.  The 

G 

elements  of  this  integration  operation  are  presented  below. 

1.  The  thickness  TFILM  of  chemical  residue  is  the  same 
on  all  vertical  tank  walls  but  may  differ  from  the 
residue  thickness  TP00L  on  the  tank  bottom. 

2.  Opposite  pairs  of  parallel  tank  walls  have  a  common 
variation  in  wall  (and  residue)  temperature  with  tank 
depth.  Port-starboard  walls  may  have  a  temperature 
profile  that  differs  from  the  fore-aft  walls. 

3.  The  local  evaporation  flux  on  a  given  wall  is  constant 
over  a  wall  depth  increment  DY  and  strip  width  of 
either  L  or  W  and  reflects  local  wall  temperature. 

4.  The  local  evaporation  rate  is  constant  for  all  times 
less  than  or  equal  to 

T*  =  VtLM  pF/(dA/dA)  ( 
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where 


t,  =  local  evaporation  rime 


p  =  pure  chemical  density 
Local  evaporation  ceases  for  time  greater  than  t  . 

5.  Statements  similar  to  items  3  and  4  apply  to  the  Lank 
bottom. 

6.  Evaporation  fitix  profiles  are  then  integrated  using 
Simpson's  Rule  over  the  tank  depth  (Y  =  0  to  Y  =  H) 
subject  to  the  local  time  constraints  in  Item  4  to 
yield  evaporation  rate-time  profiles  on  the  vertical 
wal Is. 

7.  The  evaporation  rate  on  the  tank  bottom  is  calculated 
by  multiplying  Equation  14  by  the  tank  planform  area, 

LW.  The  corresponding  evaporation  time  is  calcu¬ 
lated  using  the  equivalent  form  in  Equation  17. 

8.  Using  time  as  an  indicator,  total  evaporation  rate  is 
calculated 

\  (t)  =  "!B(t)  +  2  (*HL(t)  +  V(t))» 

(18) 

t  =  t  to  t. 
o  f 

9.  The  m  and  time  vectors  are  stored  internally  foi  use 
in  Equation  13.  The  value  of  m  corresponding  to 
integration  time,  t,  is  obtained  by  table,  lookup  and 
interpolation,  if  needed. 

II. 3.2  Input  Data  Requirements 

Tib  J  i?  ill  describes  the  input  data  requirements  and  control 
variables  for  TANKP  in  the  sequence  that  they  will  be  requested  of  the 
user  by  the  interactive  driver  PKKTNK.  The  majority  of  the  inputs  to 
TANKP  are  in  metric  units.  Two  exceptions  are  the  curve  fit  constants 
for  chemical  density  and  viscosity  of  air,  which  reflect  English  units. 
Default  options  and  the  i’RETNK  subroutines  that  control  default  input 
are  indicated  where  applicable.  A  discussion  of  the  default  options  and 


TABLE  III.  INPUT  DATA  REQUIREMENTS  FOR  TANKP 


(i)  Dimensionless  -  Integer 

(2>  No  -  Indicates  t!:at  a  default  option  is  not  appropriate. 

(3)  The  curve  fit  on  liquid  chemical  density  will  not  be  required  when  the  program  is  integrated  into  the 

USCH-HACS  System.  The  density  as  a  function  of  temperature  will  be  obtained  from  the  HACS  Chemical  Property  Data  File. 


TABLE  III.  INPUT  DATA  REQUIREMENTS  FOR  TANKP  (CONTINUED) 


Parts  per  million  by  volume 


TABLE  III.  INPUT  DATA  REQUIREMENTS  FOR  TANKP  (CONTINUED) 


Tank  Depth  (m) 


any  additional  user-supplied  default  information  is  presented  in  Section 
II. 3. 3.  The  next  section  also  includes  discussions  of  othei  subroutines 
that  have  an  input  control  function  (with  options)  but  are  not  default 
routines.  Some  of  the  PRETNK  subroutines  are  common  to  both  TANKM  and 
TANKP.  In  these  instances.  Section  1 1. 3. 3  will  refer  the  reader  to  a 
discussion  of  that  subroutine  in  Section  IL.2.3. 

Interactive  input  is  stored  in  a  PRETANK  data  file,  TANKP1, 
in  a  formal:  that  is  compatible  with  the  input  requirements  of  TANKP. 

II. 3. 3  Default  Options 

This  section  describes  the  input  default  options  that  are 
available  in  TANKP,  and  they  are  presented  below  in  the  order  that  each 
default  subroutine  would  be  called  from  PRETNK.  The  location  of  these 
calls  in  the  input  sequence  is  noted  in  the  COMMENT  column  of  Table  III. 
Where  default  options  are  common  to  TANKM,  the  reader  is  referred  to 
Section  11.2.3. 


Subroutine 

TKDIM 

See 

Se>  tion 

II. 2. 3. 

Subroutine 

BLOWER 

See 

Section 

II. 2. 3 

Subroutine 

CHEMRS 

The  objective  of  this  subroutine  is  to  provide  the  user  with  options 

that  lead  to  calculation  of  a  default  value  for  TPOOL,  the  thickness  of 

residual  pure  chemical  on  the  tank  bottom  after  product  discharge.  Two 

default  options  are  presented  for  the  residual  volume  of  pure  chemical  on 

3 

the  tank  bottom;  these  options  for  VRES  are  0.2  and  5.0m  .  Note  that 
these  options  are  the  same  as  are  contained  in  subroutine  POSTWH  for  the 
TANKM  model.  The  rationale  for  these  values  is  the  same  in  both  cases 
and  is  contained  in  Section  11.2.3  and  the  POSTWH  subroutine.  Following 
selection  of  the  default  VRES,  the  residual  thickness  TPOOL  is  calculated. 


TPOOL  =  VRES/ (LW) 


Subroutine  TKWALL 


This  subroutine  eon  tins  two  d<  I, ml  .  opt  lous  I  o  r  the  rheni  i  c.i  I 
film  thickness  TFT/.M  on  the  t.mi  walls  prior  to  bop.  inn  i  u  >•  of  vent  il.it  ion. 
Hie  following  default  values  were  calculated  using  the  film  estimation 
method  in  Reference.  9,  which  includes  the  effect  oi  product  discharge 
ullage  rate  and  kinematic  viscosity. 

Option  1.  TFILM  =  3.9E-CH  CM  tor  kinematic,  viscosities 
of  the  order  of  200E-06  M2/sec. 

Option  2.  TFILM  =  0.11E-03  CM  for  kinematic  visocities 
approaching  IK- 06  M2 /sec. 

These  options  ire  based  on  a  product  discharge  rate  of  200  MT/hr  at  a 
nominal  cargo  specific  gravity  of  1.0.  Tank  length  and  width  have  a 
relatively  minor  affect  on  the  calculated  film  thicknesses. 

The  smaller  of  the.  two  film  thicknesses  would  be  applicable  to  the 
bulk  of  the  pure  chemicals  that  do  not  require  heating  during  shipment 
and  discharge.  The  larger  film  thickness  would  be  appropriate  for  a 
smaller  group  of  viscous,  heated  cargoes.  The  user  may  perform  a  separate 
hand  calculation  and  input  TFILM  for  a  specific  cargo  and  discharge 
temperature. 

Subroutine  PREVNT 

See  Section  I I. 2. 3 

Subroutine  VTMORK 

See  Section  II. 2. 3 

II. 3.4  Program  Output 

Execution  of  the  TANKP  program  includes  the  same  two  generic 
output  operations  that  are  performed  in  TANKM  runs. 

Operation  1.  -  Transfer  of  input  data  from  the  TANKPI 
data  file  in  PRETNK  to  TANKP.  The  out¬ 
put  format  in  TANKPI  is  compatible  with 
the  input  format  in  TANKP. 


Operation  2. 


The  results  of  program  execution  are 
output  to  a  printer  by  TANK!’. 


The  details  of  each  output  operation 


are  presented  below. 


II. 3.4.1  TANK M I  Output 


The  TANK PI  output  statements  are  duplicated 
below.  Each  WRITE  statement  contains  an  ordered  pair  of  numbers  in 
parentheses.  The  first  number,  2,  creates  the  TANKPI  data  file,  and 
the  second  integer  refers  to  the  appropriate  FORMAT  number.  Format 

numbers  2,  3  and  8  are  not  shown  because  they  are  common  to  the  TANKMI 
output  file. 


WR I  re <2.  2)  TESTNO 

WR  ir£<2,  9)  L,  W,  D,  11,  PA,  TB,  G,  R,  STEP,  A,  B,  C,  Cl, 

C2 

U*RITE<2,  9)  DELTA,  EPSILN,  PHI 
FORMAT  <  6E12.  6> 

WH I TE  <  2 ,  10)  N3TEP 
FORMAT ( 14) 

WR  I  TE  ( 2,  9 )  COV,  Q,  TFILM,  TPOQL,  TGAS,  DIA,  R2 
UftITE<2,  9)  ALPHA,  BETA,  GAMMA 
WK I  I  E< 2, 9  >  ZETA,  ETA,  THETA 
WHITE (2,  6)  N'JMEXP 

IF  (K'UMEXP  .  ME.  0)  WRITE<2,7)  (ETIME(I),  ECVPPMt  I  ) ,  1  =  1 ,  NUKEXP  ) 
WH I  TE ( 2,  9 )  TI,  TM,  TWQRK,  DT 

WMITE<2,3>  TL VC ,  TLVTWA,  TLVSTL 
WHITE(2, 8)  ITWORK,  IBLOW 


II. 3.4.2  TANKP  Output 

TANKP  produces  nine  blocks  of  output  information. 


BL0CK  1  ~  block  prints  out  selected  pieces  of  input  or  default  data. 

The  format  of  this  printout  is  shown  on  the  next  page. 


****  TEST  NO, 

COMMON  TANK  PARAMETERS 

Variable  description 

L  TANK  LENGTH 

W  TANK  WIDTH 

H  TANK  HEIGHT 

V  TANK  VOLUME 

CO  INITIAL  CONCENTRATION 

G  VENTILATION  RATE 

P  TANK  PRESSURE 

TB  LIQUID  SOILING  POINT 

G  LIQUID  SURFACE  TENSION 

U  WALL  AIR  VELOCITY 

M  LIQUID  MOLECULAR  WEIGHT 

TFILM  FILM  THICKNESS  ON  WALLS 

TPOOL  FILM  THICKNESS  ON  30TTOM 


Units 

m 

M 

M 

M 

MG/M3 
M3/MIN 
MM  HG 
K 

DYNES/CM 

CM/SEC 

CM/MOLE 

CM 

CM 


TLVC  THRESHOLD  LIMIT  VALUE,  CEILING 

TLVTWA  THRESHOLD  LIMIT  VALUE, 

TIME-WEIGHTED  AVERAGE 
TLV3TL  THRESHOLD  LIMIT  VALUE, 

SHORT-TERM  EXPOSURE  LIMIT 


BLOCK  2  -  Tills  block  contains  three  entries. 

1.  TWORKN  -  Statement  defining  the  user  selected  in-tank 
work  activity  (N  =  option  selected). 

2.  TWORK  -  Duration  of  the  in- tank  work,  min. 

3.  Statement  defining  blower  status  (on  or  off)  during 
tank  entry. 


BLOCK  3  -  Block  3  displays  the  numerical  values  for  nine  variables  that 
relate  to  the  chemical  evaporation  process  on  the  tank  bottom. 


SUMMARY  OF  TANK  BOTTOM 
QUANTITY 

FLOOR  TEMPERATURE (K) 

VAPOR  PRESSURE (MM  HG ) 

DIFFUSION  COEFFIC IENT (CM2/SEC ) 
KINEMATIC  VISCOSITY  OF  AIR(CM2/SEC) 
SCHMIDT  NUMBER 
RHOF ( GM/CM3 ) 

MDOTXZ ( GM/CM2-SEC > 

TAUB(SEC) 

1/F<CM**-1 ) 


Result 


BLOCK  4  -  This  block  tabulates  eight  wail-film  chemical  quantities  and 


their  variation  with  depth  from  lank  mp  10  tank  bottom.  The  table  applies 
to  tank  walls  that  are  parallel  to  the  X-Y  plane.  At  a  given  depth,  Y, 
into  the  tank,  local  values  of  the  eight  quantities  are  assumed  to  be 
constant  over  a  distance  increment  I)Y.  'Jliese  Local  quantities  and  their 
units  are: 


TEMP(K) 

MDOTXY (GM/ CM2-SEC) 
TAUXY (SEC) 
D(CM2/SEC) 
NU(CM2/SEC) 

PV(MM  HG) 

SC  (dimensionless) 
1/F(CM~1) 


Wall  Temperature 
Evaporation  flux 
Time  to  evaporate  TFILM 
Diffusion  coefficient 
Kinematic  viscosity  of  air 
Chemical  vapor  pressure 
Schmidt  number,  NU/D 
Reciprocal  of  film  thickness  at 
surface  of  evaporating  liquid 


Note,  that  this  table  is  presented  in  the  output  even  though  the  ventilation 
scenario  may  not  contain  a  film  on  these  tank  walls. 

BLOCK  5  -  This  block  is  identical  in  format  and  content  to  BLOCK  U  and 
pertains  to  the  two  remaining  tank  walls  that  are  parallel  to  the  Y-Z 
plane. 

BLOCK  6  -  BLOCK  6  presents  a  tabulated  time  history  of  the  calculated 
tank  vapor  concentrations  and  other  informational  quantities. 


CONCENT(PPM) 

C/CO 

QT/V 

MDOTG(GM/SEC) 


-  Tank  vapor  concentration 

-  Ratio  of  instantaneous  to  Initial 
tank  concentration 

-  Cumulative  tank  turnovers  or  air 
exchange  at  time  t 

-  Instantaneous,  integrated  chemical 
evaporation  rate  from  all  affected 
surfaces 
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MDOTHL(GM/SEC) 


instantaneous,  integrated  evaporation 


rate  Iron  walls  parallel  to  tank  length 
MDOTHW(GM/SEC)  -  Same  as  MDOTHl.  but  for  walls  parallel 

to  tank  width 

MDOTB (GM/SEC)  -  Chemical  evaporation  rate  from  the  tank 

bo  t  tom 

Note  that 

”c  =  ^  +  2  (V  +  \w)  (19) 

BLOCK  7  -  BLOCK  7  summarizes  in  tabular  form  the  vapor  concentration- time 
history  in  the  tank  during  the  period  of  time  specified  by  TWORK.  If  the 
blower  ON  option  was  selected,  then  concentration  should  decrease  with 
time.  The  calculated  concentrations  are  assessed  relative  to  the  TLV-C 
and  the  TLV-STEL,  and  if  these  levels  are  exceeded,  "Hazardous  Working 
Conditions"  are  indicated. 

BLOCK  8  -  If  the  TI.V-C  and  TLV-STEL  'interpreted  as  an  MAC)  are  not 
exceeded  at  any  time  during  TWORK,  then  the  in-tank  CV(PPM)  profile  is 
integrated  to  yield  the  average  exposure  concentration,  which  is  an  out¬ 
put  quantity.  The  8-hour  TWA  exposure  is  calculated  and  compared  to  the 
TLV-TWA,  and  the  results  are  displayed  in  the  output. 

BLOCK  9  -  BLOCK  9  is  a  computer- gene  rated  graph  of  the  calculated  gas  free¬ 
ing  concen tration- time  history  and  includes  plotted  experimental  data  if 
input  by  the  user. 

II. 3.5  Hazard  Assessment 

The  hazard  assessment  logic  that  is  programmed  into  TANKP 
is  identical  to  the  logic  in  TAN KM  as  desc r i bed  in  Section  II. 2.5. 

As  in  TANKM,  the  assessment  is  based  on  tbe  ACGIH  Threshold 
Limit  Values  in  Reference  li.  When  time  weighted  average  exposures  are 
calculated,  they  are  referenced  to  an  8-hour  work  day  because  the  TLV-TWA 
is  based  on  this  work  schedule,  i.e.  eight  hours  on  followed  by  16  hours  off 


In  the  future,  on-going  research  efforts  may  provide  guidance  on  adjustments 
to  the  8-hour  TLV-TWA  for  maritime  work  schedules,  e.g,  4  on-8  off  or  6  on- 
6  off.  If  adjustments  are  indicated,  they  can  be  incorporated  with  minor 
programming  modifications. 

II. 3.6  Example  of  TANKP 

This  example  demonstrates  the  use  of  the  TANKP  model  for  a 
tank  that  had  carried  ethyl  acetate  and  was  ventilated  without  an  initial 
washing.  The  TANKM  example  contained  five  elements  of  hard  copy.  These 
same  elements,  which  pertain  to  the  TANKP  run,  are  included  in  this 
example. 

Comments  concerning  this  TANKP  example  are  presented 

below. 

o  This  example  represents  a  test  that  was  conducted  in 
a  small  barge-size  tank  with  dimensions  of  3.7m  x 
3.7m  x  3.7m. 

o  A  90-minute  ventilation  period  preceeded  a  15-minute 
in-tank  work  activity, 

o  In  this  example,  the  residual  chemical  is  on  the  tank 
bottom,  the  walls  do  not  have  a  residual  film. 

o  The  output  data  indicate  that  the  vapor  concentration 
rose  initially,  and  then  declined  to  a  steady-state 
or  constant  value.  This  constant  level  represents 
an  equilibrium  between  the  rate  of  chemical  evaporation 
and  the  vapor  discharge  rate.  According  to  the  model 
formulation,  the  plateau  would  extend  to  539  min 
(TAUB),  which  would  signify  the  termination  of  evapora¬ 
tion.  If  the  program  had  been  run  beyond  that  time, 
concentration  would  have  fallen  exponentially. 


o  The  majority  of  the  chemicals  that  are  shipped  by  water 
have  either  a  TLV-C  or  a  TLV-TWA  and  a  TLV-STEL.  A 
small  group  of  chemicals  that  includes  ethyl  acetate 


TANKP  EXAMPLE 


>RUN  PRETNK 

PROGRAM  PRETNK  IS  AN  INTERACTIVE  PROGRAM  DESIGNED  FOR 
THE  USER  TO  EASILY  INPUT  DATA  COMPATIBLE  FOR  PROGRAM 

TANKM  OR  TANKP 

1.  TANKM  -  PROGRAM  THAT  CALCULATES  THE  CONCENTRATION- 

TIME  HISTORY  OF  CHEMICAL  VAPORS  DISCHARGED 
FROM  A  TANK  DURING  DILUTION  VENTILATION  IN 
THE  PRESENCE  OF  CHEMICAL  SOLUTE  EVAPORATION 
FROM  AN  AQUEOUS  SOLUTION  OF  RESIDUAL  CARGO 
ON  THE  TANK  FLOOR. 

2.  TANKP  -  PROGRAM  THAT  CALCULATES  THE  CONCENTRATION¬ 

TIME  HISTORY  OF  CHEMICAL  VAPOR  DISCHARGED 
FROM  A  TANK  DURING  DILUTION  VENTILATION  IN 
THE  PRESENCE  OF  EVAPORATION  OF  PURE 
CHEMICAL  RESIDUES  FROM  THE  TANK  WALLS  AND 
FLOOR. 

SELECT  A  1  OR  2  TO  INDICATE  FOR  WHICH  PROGRAM  YOU 
WISH  TO  INPUT  DATA 


INPUT  TEST  NUMBER 
26 

DO  YOU  HAVE  TANK  DIMENSIONS  <  Y/N ) 7 

Y 

ENTER  TANK  LENGTH,  WIDTH,  AND  DEPTH  IN  METERS 
3.66  3.66  3.66 

DO  YOU  KNOW  THE.  BLOWER  FLOW  RATE  <Y/N>? 

Y 

INPUT  MEASURED  FLOW  RATE  (M3/MIN) 

5.126 

ENTER  DIAMETER  OF  BUTTERWORTH  OPENING  IN  METERS 
.  1016 

THE  PROGRAM  ASSUMES  THAT  THE  VESSEL  TRIM  ANGLE  IS 
REDUCED  TO  ZERO  AFTER  DISCHARGE  AND  THE  CHEMICAL 
RESIDUE  IS  UNIFORMLY  DISTRIBUTED  OVER  THE  TANK  BOTTOM 
DURING  GAS  FREEING. 

HO  YOU  KNOW  THE  THICKNESS  OF  THIS  CHEMICAL  RESIDUE  ON 
THE  TANK  BOTTOM  AFTER  DISCHARGE  (Y/N>? 

Y 

INPUT  TPOOL ,  THE  THICKNESS  OF  LIQUID  LAYER  ON  TANK- 

BOTTOM,  IN  CM 

1.2 

IS  THE  FILM  THICKNESS  ON  THE  TANK  WALLS  KNOWN ( Y/N ) ? 

Y 

INPUT  THE  FILM  THICKNESS,  TFILM ,  IN  CM. 

0. 


ENTER  IN  ATMOSPHERIC  PRESSURE  IN  MM  HG 
760. 


ENTER  A ,  B,  C,  CHEMICAL  VAPOR  PRESSURE  CONSTANTS 
7 . 10179E00  1.244951E03  0.217881E03 


IS  PREVENTILATION  VAPOR  CONCENTRATION  KNOWN  ( Y /N ) 7 
Y 


ENTER  CONCENTRATION  IN  PPM 
• 23692E5 

ENTER  POR  INTEGRATION  *  TI  (INITIAL  TIME).  AND  DT 
(INTEGRATION  TIME  STEP).  DT  MUST  PE  A  WHOLE  NUMBER. 

TM  AND  TM+TWORK  MUST  BE  MULTIPLES  OP  DT. 

0.0  1.0 

INPUT  VENTILATION  TIME.  TM,  TO  MAN  ENTRY 
90, 

OPTIONS  POR  DURATION  OP  MAN  ENTRY,  TWORK  IN  MIN.,  IS  AS 

follows: 

1.  BRIEF  VISUAL  INSPECTION  AND  ODOR  DETERMINATION 
WITH  CARGO  SURVEYOR. 

TWORK  =1-2  MIN. 

2.  INSPECT  TANK  COATINGS  AND  MEASURE  THICKNESS 

TWORK  =15-45  MIN. 

3.  HAND  MUCKING  OF  RESIDUE  WITH  TOWELS  AND  RAGS 
(RELATIVELY  DIRTY  TANK) 

TWORK  =  90  MIN. 

4.  SWEEP  DEBRIS  FROM  TANK  BOTTOM  AND  WIPE  PUMP  SUMP 
(RELATIVELY  CLEAN  TANK) 

TWORK  =  40  MIN. 

5.  USER  SPECIFIES 

SELECT  AND  ENTER  A  1-5  TO  INDICATE  WORK  DESCRIPTION 
2 

INPUT  DURATION,  IN  MINUTES,  OF  MAN  ENTRY  IN  TANK 
15. 

ENTER  VAPOR  TEMPERATURE,  TGAS ,  IN  DEGREES  KELVIN 
DURING  GAS  FREEING.  SINCE  THE  TANK  WILL  NOT  BE 
WASHED,  AN  ISOTHERMAL  VENTILATION  PROCESS  IS  ASSUMED 
284.7 

ENTER  OCCUPATIONAL  EXPOSURE  LIMITS  ( ACGIH ) 

ALL  EXPOSURE  LIMITS  ARE  INPUT  IN  PPM 
DOES  THE  COMPOUND  HAVE  A  CEILING  TLV  (Y/N)? 

N 

INPUT  TLVTWA  AND  TLVSTEL 
400  400 

ENTER  M,  SOLUTE  MOLECULAR  UT.  IN  GM/MOLE 

88.1 

ENTER  R2,  JET  DEFLECTION  +  WALL  JET  DISTANCE  IN  METERS 
2.71 


INPUT  NUMBER  OF  POINTS  IN  EXPERIMENTAL  BAT  A  ,  MAXIMUM 
OF  200  POINTS  (ENTER  0  (ZERO)  IF  NO  POINTS) 

10 


INPUT  TIME  AND  CONCENTRATION  FOR  EACH  POINT 
ETIMt(l)  ,  ECVPPM ( 1 > 

•  i 

ETIME ( NUMEXP )  ,  ECUPPM ( NUMEXP ) 

0.0  23692. 

0.5  ■22118. 

5.0  20890. 

11.5  17894. 

16.0  17050. 

26.0  15360. 

39.0  14899. 

64.0  14899. 

89.  14054. 

114.0  13600. 

ENTER  TB.  CHEMICAL  BOILING  POINT ,  DEG  N. 

350 

ENTER  IN  G ,  CHEMICAL  SURFACE  TENSION,  DYNES/CM  AT  20 

DEG  C 

25.4 

ENTER  R,  UNIVERSAL  GAS  CONSTANT  ( CM3-MM  HG )  /  (MOLE-K) 

. 62358E5 

ENTER  Cl,  C2 ,  CUR/E  FIT  COEFFICIENTS  ON  LIQUID  DENSITY 
AS  A  FUNCTION  OF  TEMPERATURE 
59.093  -0 . 433E-01 

ENTER  ALPHA,  BETA,  GAMMA,  CURVE  FIT  COEFFICIENTS  ON  WALL 
TEMPERATURE  FOR  WALLS  PARALLEL  TO  X-Y  PLANE  IN  M 
28.02E1  0.0  0.0 

ENTER  ZETA,  ETA,  THETA,  CURVE  FIT  COEFFICIENTS  ON  WALL 
TEMPERATURE  FOR  WALLS  PARALLEL  TO  THE  Y-Z  PLANE  IN  M. 
28.02E1  0.0  0.0 

ENTER  DELTA,  EPSILN,  PHI,  CURVE  FIT  COEFFICIENTS  FOR 
KINEMATIC  VISCOSITY  OF  AIR  ( FT2/SEC )  AS  A  FUNCTION  OF 
TEMP(F)  AT  ATMOSPHERIC  PRESSURE. 

.  1  lt671 4E-3  0 . 6571 43E~6  0.0 

ENTER  STEP,  NUMBER  OF  SUBDIVSIONS  OF  H,  DY=H/STEP 

10 


ENTER  NSTEP  *  INTEGER  VALUE  OF  STEP 
10 


WILL  BLOWER  BE  OPERATING  DURING  TANK  ENTRY  (Y/N)'!’ 
Y 


62 


0TANKP 
>RUN  TANNP 


DENSIMETRIC  FROUDE  NO.  =  64.022 


DENSIMETRIC  FROUDE  NUMBER  AT  BEGINNING 
OF  VENTILATION  IS  GREATER  THAN  50.  BLOWER  CAPACITY 
IS  SUFFICIENT  FOR  THE  VENTILATING  JET  TO  PENETRATE 
THE  VAPOR  SPACE  AND  IMPINGE  ON  THE  TANK  BOTTOM. 
COMPLETE  JET  PENETRATION  AND  IMPINGEMENT  ENSURES 
THAT  THE  VAPOR  CONCENTRATION  IN  THE  ULLAGE  SPACE 
IS  HOMOGENOUS  AND  THAT  THE  WELL-MIXED  MODELING 
ASSUMPTION  IS  VALID.  FOR  FURTHER  DETAILS »  CONSULT 
REFERENCE  4  OF  THE  CONTRACT  FINAL  REPORT. 


TT30  —  STOP 

>RUN  PLTANK 

>PIP  SCRATCH. DAT ?*/DE 
>PIP  LP.LST=TANKPO. DAT/RE 

>*  DO  YOU  WANT  A  HARD  COPY  OF  TANKPO  (Y/N>  ?  [S3  t  Y 
>PIP  LP.LST/SP 

>// 

>e  <EOF> 


>TYPE  TANKF'I .  DAT 
26 

. 366000E+010 . 366000E+01 0.366000E+010. 881 000E+020 . 760000E+030 .350000E+03 

. 254000E+020 . 623580E+050 . 100000E+020 .710179E+010. 124495E+040 .217881E+03 

.590930E+02- . 433000E-01 

. 11671 4E-030. 6571 43E-060 . OOOOOOE+OO 
10 

.  236920E+050. 51 2600E+010 .OOOOOOE+OOO. 120000E+01 0 . 284700E+030 . 1 01 600E+00 

. 271000E+01 

.280200E+030. OOOOOOE+OOO. 000000E+00 

•280200E+030.000000E+000. OOOOOOE+OO 
10 

0.0000  23692.0000 

0.5000  22118.0000 

5.0000  20890.0000 

11.5000  17894.0000 

16.0000  17050.0000 

26.0000  15360.0000 

39.0000  14899.0000 

64.0000  14899.0000 

89.0000  14054.0000 

114.0000  13600.0000 

. OOOOOOE+OOO . 900000E+020 . 1 50000E+020 . 1 00000E+01 

0 . OOOOOE+OO  0 . 40000E+03  0.40000E+03 
2Y 


DENS I METRIC  FROUDE  NO 


64.  022 


DENS I METRIC  FROUDE  NUMBER  AT  BEGINNING 
OF  VENTILATION  IS  OREATER  THAN  50.  BLOWER  CAPACITY 
IS  SUFFICIENT  FOR  THE  VENTILATING  JET  TO  PENETRATE 
THE  VAPOR  SPACE  AND  IMPINGE  ON  THE  TANK  BOTTOM. 
COMPLETE  JET  PENETRATION  AND  IMPINGEMENT  ENSURES 
THAT  THE  VAPOR  CONCENTRATION  IN  THE  ULLAGE  SPACE 
IS  HOMOGENOUS  AND  THAT  THE  WELL-MIXED  MODELING 
ASSUMPTION  IS  VALID.  FOR  FURTHER  DETAILS,  CONSULT 
REFERENCE  4  OF  THE  CONTRACT  FINAL  REPORT. 


*****  TEST  NO.  26  ***** 


VARIABLE 

ONE-TIME  OUTPUTS 
DESCRIPTION 

UNITS 

RESULT 

L 

TANK  LENGTH 

M 

3.  7 

W 

TANK  WIDTH 

M 

3.  7 

H 

TANK  HEIGHT 

M 

3.  7 

V 

TANK  VOLUME 

M 

49.  0 

CO 

INITIAL  CONCENTRATION 

MG/M3 

23692.  0 

G 

VENTILATION  RATE 

M3/MIN 

5.  1 

P 

TANK  PRESSURE 

MM  HG 

760.  0 

TB 

LIQUID  BOILING  POINT 

K 

350.  0 

G 

LIQUID  SURFACE  TENSION 

DYNES/CM 

25.  4 

U 

WALL  AIR  VELOCITY 

CM/SEC 

29  2 

M 

LIQUID  MOLECULAR  WEIGHT 

GM/MOLE 

88  10 

TFILM 

FILM  THICKNESS  ON  WALLS 

CM 

0.  00 

TPOOL 

FILM  THICKNESS  ON  BOTTOM 

CM 

1.  20 

TLVC 

THRESHOLD  LIMIT  VALUE.  CEILING 

PPM 

0. OOOOOE+OO 

TLVTWA 

THRESHOLD  LIMIT  VALUE, 
TIME-WEIGHTED  AVERAGE 

PPM 

0.  40000E+03 

TLVSTL 

THRESHOLD  LIMIT  VALUE. 

SHORT-TERM  EXPOSURE  LIMIT 

PPM 

0. 40000E+03 

TW0RK2  -  INSPECT  TANK  COATINGS  AND  MEASURE  THICKNESS 
TW0RK2  =  15.  0000  MIN. 


BLOWER  IS  ON  DURING  MAN'S  ENTRY 


SUMMARY  OF  TANK  BOTTOM 
QUANTITY 

FLOOR  TEMPERATURE ( K ) 

VAPOR  PRESSURE < MM  HG) 

DIFFUSION  COEFFIC IENT (CM2/SEC ) 
KINEMATIC  VISCOSITY  OF  AIR(CM2/SEC) 
SCHMIDT  NUMBER 
RHOF  <  QM/CM3 ) 

MDOTXZ  <  QM/CM2-SEC ) 

TAUB(SEC) 

1 /F  <  CM**— 1 ) 


RESULT 

2S0.  2 
36.  9 
0.  0771 
0.  1355E+00 
1.  7576 
0.  917 
0.  3403E-04 
32324.  9 
2.  411 
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EVALUATION  OF  VAPOR  CONCENTRATIONS  DURING  MAN-ENTRY 

TANK  IS  ENTERED  AT  TIME  *  90  0  MIN 

TANK  IS  EXITED  AT  TIME  =  105  0  MIN 


PREDICTED  INSTANTANEOUS  EXPOSURE  CONCENTRATIONS  EXCEED  THE  TLV-STEL 


l»\ 

. 

TIME  (MIN) 

90  00 

CONCENTRATION  (PPM) 

14140. 4 

HAZARDOUS 

WORKING 

CONDITIONS 

91  00 

14140. 3 

HAZARDOUS 

WORKING 

CONDITIONS 

1 

92.  00 

14140.  2  . 

HAZARDOUS 

WORKING 

CONDITIONS 

93.  00 

14140.  1 

HAZARDOUS 

WORKING 

CONDITIONS 

94.  00 

14140.  0 

HAZARDOUS 

WORKING 

CONDITIONS 

95  00 

14140. 0 

HAZARDOUS 
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IN-TANK  EXPOSURE  AS  MEASURED  BY  A 
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DOSIMETER  MONITORING  WOULD  INDICATE  THAT 

THE  AVERAGE  IN-TANK  EXPOSURE  EXCEEDS  THE 

TLV-STEL  FOR  THIS  CHEMICAL  VAPOR  AND  A  HAZARDOUS 
WORKING  CONDITION  EXISTS.  REDUCE  EXPOSURE 

BELOW  TLV-STEL  BEFORE  ASSESSING  THE  TWA  EXPOSURE. 
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have  a  TLV-'IWA  but  no  STKI,.  A?;  tlio  hazard  asst  ssiiiun  t 
dons  not  reflect  this  minority  group,  the  example  was 
executed  with  a  pseudo-STHI,  e<jual  to  the  TI.V— TWA.  The 
assessment  indicates  that  hazardous  working  conditions 
exist.  In  fact,  entry  should  not  be  permitted  because 
vapor  concentrations  are  above  that  which  is  Immediately 
Dangerous  to  Life  and  Health  (TDLH),  i.e.  10,000  ppm. 
Therefore,  it  is  recommended  that  the  IDLH  value  be 
substituted  for  the  STEL  when  executing  runs  for  those 
chemicals  that  have  only  a  XL V- TWA. 

II.  4  Flow  Charts  for  PRETNK,  TAN  KM  and  TANKP 

The  interactive  driver,  PRETNK,  controls  the  input,  default  options 
and  other  branched  decisions  for  both  TANKM  and  TANKP.  Certain  portions 
of  the  requirements  in  PRETNK  are  common  to  both  tank  models.  Because  of 
this  commonality  and  for  ease  of  reference,  the  flow  charts  for  all  three 
programs  are  presented  in  this  section. 

Each  flow  chart  has  been  prepared  using  the  philosophy  that  a  chart 
should  be  functional,  clear  and  devoid  of  excessive  detail.  Based  on  these 
criteria,  the  charts  indicate  the  major  logic  elements  and  branch  points. 

TANKM  and  TANKP  models  reflect  two  distinctly  different  tank  conditions 
at  the  beginning  of  ventilation.  Because  of  this  difference,  there  is 
minimal  commonality  in  the  programming  of  these  models.  One  exception  is 
hazard  evaluation,  which  is  common  to  both  programs  and  is  contained  in 
subroutine  BLOW. 

I I . 5  Model  Limitations 

Model  limitations  derive  from  assumptions  regarding  tark  internal 
structure,  blower  jet  penetration,  homogeneous  vapor  space,  evaporation 
of  water  solvent  and  sub-saturation  solute  concentration.  The  limitations 
are  discussed  in  detail  in  Section  TV.?. 5  of  Reference  13. 
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FLOW  CHART  FOR  INTERACTIVE  DRIVER,  PRETNK 
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III.  PLUME  DISPERSION  MODEL 


I II. I  Vapor  Emission  Scenarios 

Plumes  of  gas  containing  vapors  from  liquid  bulk  cargos  are  emitted 
from  cargo  tank  vents  into  the  air  above  the  deck  of  tankerships  and  barges 
during  routine  operations.  While  cargo  vapors  may  also  be  emitted  from 
fugitive  emission  sources  such  as  P/V  valves,  drip  pans  or  liquid  accumu¬ 
lations  beneath  leaking  pumps,  pipes  or  flanges,  these  emissions  are  small 
in  comparison  to  the  vapor  plumes  emitted  during  cargo  loading  or  tank 
ventilation. 


During  cargo  loading,  vapor  is  evaporated  from  the  incoming  liquid 
to  form  a  "vapor  blanket"  above  the  liquid/gas  interface.  This  vapor 
diffuses  upward,  away  from  the  interface,  and  mixes  with  the  gas  atmosphere 
initially  in  the  tank.  As  the  liquid  level  rises,  the  tank  gas  atmosphere 
is  displaced  from  the  tank  through  an  open  ullage  hatch  or  tank  vent,  as 
shown  in  Figure  1.  The  volumetric  flowrate  of  vented  gas  is  equal  to  the 
cargo  loading  rate.  However,  the  vapor  concentration  in  the  vented  gas 
can  vary  considerably  during  loading.  The  measurements  of  vent  concentra¬ 
tion  reported  in  reference  [13]  showed  that 


o  for  "dedicated"  tanks  that  have  not  been  washed  and  venti¬ 
lated  before  loading,  the  initial  "arrival"  vapor  concen¬ 
tration  can  be  high.  Vapor  concentration  at  the  tank  vent 
increases  slowly,  and  may  approach  the  saturated  vapor  con¬ 
centration  when  the  vapor  blanket  approaches  the  top  of  the 
tank  near  the  end  of  loading.  Figure  2  shows  a  graph  of  vapor 
concentration  measured  at  the  tank  vent  versus  time  for  the 
loading  of  methanol  into  a  dedicated  tank. 

o  for  tanks  that  have  been  washed  and  ventilated  before  load¬ 
ing,  the  initial  "arrival1'  concentration  can  be  low.  Vapor 
concentration  at  the  tank  vent  increases  more  rapidly  during 
loading  and  may  also  approach  the  saturated  vapor  concentra¬ 
tion  near  the  end  of  loading.  Figure  3  shows  a  graph  of  vent 
concentration  measured  during  loading  of  ethanol  into  a  washed 
and  gas-freed  tank. 

During  tank  ventilation  operations,  fresh  air  is  blown  into  the  tank 
in  order  to  dilute  or  replace  the  tank  gas  atmosphere  which  contains  the 
vapor  of  the  previous  cargo.  The  vented  gas  flowrate  will  be  the  same  as 
the  flowrate  of  incoming  fresh  air.  As  the  tank  gas  atmosphere  is  diluted 
or  displaced,  the  vapor  concentration  at  the  tank  vent  may  vary  with  time. 
The  TANKM  and  TANKP  models  described  in  Section  II  may  be  used  to  es¬ 
timate  the  time  dependent  behavior  of  the  vapor  concentration  in  the  tank 
during  ventilation. 


Unless  arrangements  are  made  to  collect  and  return  the 
atmosphere  to  shore  during  cargo  loading  and  tank  ventilation 
the  tank  atmosphere  is  vented  directly  to  the 
by  the  wind.  Crewmen  working  in  the  vicinity 
operations  may  inhale  air  that  contains  cargo 


tank  gas 
operations, 
air  where  it  is  dispersed 
of  a  tank  vent  during  these 
vapor  from  the  vented  gas  plume. 


81 
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A  EXPANSION  TRUNK 


CHEMICAL 
VAPOR  PLUME 


TANK  GAS  ATMOSPHERE 
(Mixture  of  cargo  vapor 
and  air,  or  inert  gas) 


CARGO  VAPOR  BLANKET 


FIGURE  1.  VAPOR  EMISSION  DURING  CARGO  LOADING 
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CONCENTRATION  OF  METHANOL  VAPOR  AT  THE  VENT 


UEL  19% 


FIGURE  3 


SATURATED  VAPOR  CONCENTRATION  10.9% 
AT  32°C 

LEL  3.3% 


TLV-TWA  =  1000  ppm 

1 _ l _ L__J _ J _ I _ 1 _ I _ 

I  10  11  12  1  2345 

TIME  OF  DAY,  HOURS 


VAPOR  CONCENTRATION  AT  THE  TANK  VENT 
MEASURED  DURING  LOADING  OF  ETHANOL 
INTO  A  CLEAN,  GAS  FREE  TANK. 


The  size  of  the  vapor  plume  downwind  of  a  tank  vent,  and  t he  level 
of  vapor  concentration  at  man  breathing  height,  depend  upon  several  factors 
such  as 

o  the  vented  gas  flowrate, 

o  the  vapor  concentration  in  the  vented  gas  stream, 

o  the  height  and  the  diameter  of  the  vent  used  to  emit  the 
vented  gas  stream,  and 

o  the  ambient  wind  velocity. 

In  many  cases,  the  plume  source  conditions,  characterized  by  the  vented 
gas  flowrate  and  vapor  concentration,  vary  slowly  with  time.  On  the  other 
hand,  the  ambient  wind  varies  randomly  in  both  speed  and  direction.  These 
turbulent  fluctuations  in  wind  speed  and  direction  affect  the  instantan¬ 
eous  position  of  the  plume  relative  to  the  deck  and  cause  the  vapor  con¬ 
centration  at  downwind  locations  to  fluctuate  in  time. 

For  hazards  analysis  we  are  interested  primarily  in  the  mean,  or 
time  average  value  of  vapor  concentration.  Therefore,  it  is  necessary  to 
define  the  basis  for  time  averaging  and  to  include  the  effect  of  wind 
turbulence  in  the  plume  dispersion  model.  The  plume  dispersion  experi¬ 
ments  reported  in  reference  [13]  showed  that  a  sampling  period  of  10 
minutes  was  sufficient  for  determining  average  values  of  wind  speed,  wind 
direction  and  vapor  concentration.  The  elements  of  the  ONDE!'  computer 
model  for  predicting  the  dispersion  of  a  chemical  vapor  plume  emitted 
continuously  from  a  tank  vent  are  described  in  Section  III. 2.  Listings 
for  two  versions  of  the  ONDEK  computer  model  in  FORTRAN  appear  in  Appendices 
8  and  C.  These  versions  differ  only  in  their  graph  plotting  capability. 

The  0NDEK4  program,  listed  in  Appendix  B,  prepares  an  output  file  for  use 
with  PL0T10  graphics  software.  The  0NDEK3  program,  listed  in  Appendix  C, 
produces  graphs  using  standard  line  printer  commands  for  lineprinter  or 
CRT  output. 

III. 2  Elements  of  Program  ONDEK 

1 1 1 . 2 . 1  Model  Description  Summary 

The  ONDEK  chemical  vapor  plume  dispersion  model  is  based 
upon  the  numerical  integration  of  a  set  of  conservation  equations  for  mass 
and  momentum  along  the  axis  of  the  plume.  Ooms 1  method  [14]  is  used  to  com¬ 
pute  the  behavior  of  plumes  that  are  elevated  above  deck  level.  In  those 
circumstances  (emission  of  a  very  dense  plume  at  low  wind  speeds)  where  it 
may  be  possible  for  the  plume  axis  to  descent  to  deck  level,  TeRiele’s 
method  [15]  is  used  to  compute  plume  behavior  downwind  of  the  transition 
point.  References  [14]  and  [15]  should  be  consulted  for  the  derivations  and 
detailed  descriptions  of  these  models. 

Ooms  considers  the  development  of  plumes  that  are  bent 
over  by  the  wind  but  remain  symmetrical  about  their  axis.  Ooms  writes 
four  equations  for  the  conservation  of  mass,  chemical  species  and  momentum 
within  the  plume.  These  equations  are- 
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•  Conservation  of  mass 


tr- 


pu2irr  dr  I  *  2irbp 


{“iK 


(s)  +  ^2  Ua  sin  0  cos  0  + 


•  Conservation  of  chemical  species 


&{( 


c  u  2iTr  -dr  )  ■  0 


Conservation  of  momentum  in  the  x  (downwind)  direction 


d  /  b/T  \ 

~  (  |  pu2  cos  0  2irr  dr  J  ■  2irbpa 


+  a2  Ua  sin0  cos0  + 


“3  u'j 


+  Cd  7Tbpa  ua2|sin30  j  (22) 

•  Conservation  of  momentum  in  the  z  (vertical)  direction 
.  /  b/T  \  b/T 

pu2sln  0  2irr  dr J  -J  g(pa‘P)  2irr  dr  ±  Cd  TTbpa  Ua2  sin20  cos0  (23) 


plume  characteristic  radius,  m 
plume  drag  coefficient,  dimensionless 
vapor  concentration,  kg/m3 
acceleration  of  gravity  =9.8  m/sec2 
plume  radius,  m 

distance  along  the  plume  centerline,  m 

time  average  wind  speed,  m/s 

local  velocity  in  the  plume,  m/s 

turbulent  entrainment  velocity,  m/s 

velocity  on  the  plume  axis,  m/s 

entrainment  parameter  for  shear,  dimensionless 

entrainment  parameter  for  buoyancy,  dimensionless 

entrainment  parameter  for  turbulence,  dimensionless 

angle  of  the  plume  axis  with  respect  to  the  horizon,  radians 

plume  density,  kg/m3 

ambient  air  density,  kg/m3 


The  plume  density  depends  upon  both  the  concentration  and 
and  the  temperature  of  the  gas  being  vented  to  the  atmosphere.  In  most  in¬ 
stances,  product  is  loaded  onto  the  ship  or  barge  from  an  above-ground  storage 
tank  on  shore.  Then,  the  temperature  of  the  cargo  tank  atmosphere  is  very 
close  to  the  ambient  air  temperature,  and  the  plume  dispersion  process  can  be 
assumed  to  be  isothermal.  This  assumption  allows  the  plume  density  to  be 
related  directly  to  the  plume  concentration  through 


P  =  Pa 


+  (po:pa) 
po 


(24) 


where  pQ  -  density  of  pure  chemical  vapor.  Gaussian  profiles  are  assumed 
for  the  concentration  and  velocity  defect  (the  difference  between  the  plume 
velocity  and  the  component  of  the  ambient  wind  speed  in  the  plume  direction). 


c 

u 


c*  e“r2/XV 

n  a  *  ~r2/b2 

Ua  cos  9  ■  u  e 


(25) 

(26) 


In  these  equations, 

c*  =  plume  centerline  concentration,  kg/m3 
X2  =  turbulent  Schmidt  number  squared  =  1.35 

These  similarity  profiles  are  substituted  into  the  con¬ 
servation  equations  (20)  -  (23),  and  the  equations  are  integrated  to  give 
four  simultaneous,  ordinary  differential  equations  to  be  integrated 
numerically.  The  dependent  variables  for  these  four  equations  are  c*, 
b,  u*,  and  9.  Two  additional  equations  are  included  to  compute  the  tra¬ 
jectory  of  the  plume  axis 


=  sin  0  (27) 


af  =  cos  6  (28) 

where  z  and  x  are  the  vertical  'and  horizontal  coordinates  of  the  plume 
axis. 

Ooms  suggests  values  of  a-j  =  0.057,  a£  =  0.5,  03  =  1.0 
and  Cd  =  0.3  for  the  plume  model  parameters.  However,  plume  concentration 
measurements  reported  in  [13]  and  [16]  indicate  that  a  value  of  03  =  3  is 
appropriate  when  u'  is  taken  to  be  the  r.m.s.  of  the  turbulent  wind  speed 
fluctuations.  When  the  plume  is  close  to  the  deck,  an  image  plume  is  in¬ 
cluded  when  the  concentration  distribution  is  computed  If  the  elevation, 
z,  of  the  plume  centerline  drops  to  deck  level,  a  transition  is  made  to  a 
simplified  version  of  TeRiele’s  model  for  heavier-than-air  gas  plumes  at 
ground  level. 
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TeRiele's  model  consists  of  four  equations  for  conser¬ 
vation  of  mass  and  momentum,  and  was  developed  to  predict  the  downwind  dis¬ 
persion  of  vapors  from  area  sources.  TeRiele’s  equation  for  mass  conserva¬ 
tion  within  the  source  area  is  not  required.  However,  the  other  three 
equations  that  apply  far  downwind  of  the  source  area  can  be  applied.  There 
is  one  equation  evaluated  at  two  different  limits  (y  =  Yj_) 

S  L  [*F  [j  cu  dz]  dy  -  5  Ky  I7  dz 

y  =  YL 

In  this  equation  Yj_  is  the  crosswind  integration  limit,  equal  to  either 

/2/2  ay  or  00.  Also  in  this  equation, 

Ky  is  an  atmospheric  dispersion  coefficient. 


There  is  one  equation  for  conservation  of  momentum 

sr  ("jj  cu2  dydz]  “I  S  ,To  dy 

|_o  O  j  o 


where  Cgr  =  concentration  at  ground  (deck)  level,  kg/m3 

pgr  =  density  of  the  plume  at  ground  (deck) level,  kg/m3 
t0  =  wind  shear  stress  at  ground  (deck) level,  kg/ms2 

A  Gaussian  type  profile  is  assumed  for  the  concentration 
distribution,  and  a  power  law  profile  for  the  wind  velocity 


where  ca  =  concentration  on  the  plume  axis  at  deck  level,  kg/m3 
u0  =  wind  speed  at  reference  height,  m/s 
z0  =  reference  height,  m 

a  =  velocity  profile  parameter,  dimensionless 
Oy  =  horizontal  dispersion  coefficient,  m 
oz  =  vertical  dispersion  coefficient,  m 
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Substituting  these  profile  formulas  into  the  conservation  equations  and 
performing  the  integration  gives  three  simultaneous,  ordinary  differential 

equations  for  ca,  oy,  and  oz. 

Concentration  profiles  must  be  matched  at  the  point  of 
transition  from  Ooms'  to  TeRiele's  model.  The  following  matching  equations 
can  be  derived  to  relate  ca  and  oy  to  c*  and  b 


=  2  c* 

(33) 

=  Xb 

(34) 

Since  the  form  of  the  concentration  profiles  for  Ooms'  and  TeRiele's  method 
are  different  (they  are  the  same  only  if  a  =  0.5),  it  is  necessary  to 
estimate  a  value  of  0,  that  gives  a  good  "global"  match  to  the  concen¬ 
tration  profiles.  We  nave  required  that  the  integral 

OO 

J  c  dz  be  equal  for  both  methods  along  the  y  =  0  plane. 

0 

This  gives  a  relation  between  oz  and  b 

°z  =  xb  ffiT T+fc) 

With  these  values  of  ca,  oy,  and  az  as  starting  conditions,  TeRiele's 
equations  are  integrated  numerically  without  further  reference  to  Ooms' 
variables. 


Ooms'  plume  dispersion  method  strictly  applies  only  to 
plumes  with  self-similar  Gaussian  concentration  profiles  as  given  by 
equation  (25).  However,  the  jet  of  air  and  vapor  that  emerges  from  the 
vent  exit  has  a  concentration  distribution  that  is  flat  (the  concentration 
is  constant,  independent  Of  radius).  Turbulence  produced  by  the  vent  gas 
stream  entrains  ambient  air  into  the  jet  so  that  the  concentration  distri¬ 
bution  is  soon  transformed  from  a  top  hat  profile  to  a  Gaussian  profile 
at  some  distance  downstream  from  the  vent  exit.  To  estimate  this  distance, 
and  to  calculate  the  appropriate  initial  values  for  Ooms'  plume  variabl  s, 
two  correlation  equations  for  jet  development  are  used. 

Kamotani  and  Greber  [17]  developed  a  correlation  for  the 
rise  height  of  a  turbulent  jet  in  a  crossflow 

bv 

Zv/d  =  av  (X/d)  (36) 

where  Zv  =  jet  centerline  elevation  above  the  exit,  m 
d  =  vent  diameter,  m 
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X  =  downstream  location,  m 

av  =  empirical  parameter,  dimensionless 

bv  =  empirical  parameter,  dimensionless 

Reference  [17]  ^resents  data  in  graph  form  for  the  empirical  parameters,  av 


and  bv  in  terms  of  the  jet  momentum  ratio,  J, 

J  =  Pj  Uj2/pa  Ua2  (37) 

where  pj  =  jet  discharge  density,  kg/m3 
Uj  =  jet  discharge  velocity,  m/s 

The  behavior  of  av  and  bv  can  be  approximated  by  numerical  curve  fits 

by  =  0.4  for  J  <  10  and  (38) 

bv  =  exp  [-0.744691  -  0.074525  £n(J)]  for  10  <  J  <  60  (39) 

av  =  exp  [0.405465  +  0.131368  £n(J)  +  0.054931  (£n(J))2]  (40) 

The  values  of  av  and  bv  predicted  by  Equations  (39)  and  (40)  are  in  good 

agreement  with  Kamotani  and  Greber's  own  equation 

Zv/d  =  0.89  J0,47  (X/d)0’36  (41) 

which  was  recommended  in  [17]  for  the  range  of  15  <_  J  <.60  and  0  <_  (X/d) 

<  20. 


While  equation  (36)  may  be  used  to  predict  the  plume  tra¬ 
jectory  close  to  the  vent,  another  correlation  is  needed  to  predict  the  plume 
path  length  required  for  development  of  a  Gaussian  profile.  Keefer  and 
Baines  [18]  investigated  the  axial  velocity  decay  for  jets  of  air  discharged 
normal  to  a  flowing  stream.  Their  data  gives  values  for  the  onset  of  axial 
velocity  decay  (an  indication  that  turbulence  has  "worn  down"  the  sides  of 
the  top  hat  velocity  profile)  for  jets  with  velocity  ratios  of  Uj/Ua  = 

4,  6,  8 


Path  Length 
S/d 


Velocity  Ratio 
Uj/Ua 


1 .59 
1 .92 
2.30 


4 

6 

8 
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This  data  is  used  as  the  basis  for  a  numerical  curve  fit 


S/D  =  0.871667  +  0.1775  *  (Uj/Ua)  (42) 

used  in  the  computer  program.  Equations  (42)  and  (36)  are  solved  simul¬ 
taneously  in  subroutine  START  to  determine  the  initial  coordinates  of 
the  plume  for  integration  of  Ooms '  model  equations. 

The  initial  value  for  plume  angle,  0,  is  calculated  with 
the  help  of  equation  (36)  as 

0  =  tan-^  £av  bv  ( X/d ) bv  J  (43) 

The  initial  value  of  plume  radius,  b,  is  calculated  by  requiring  that  the 
rat^  of  chemical  vapor  transport  is  equal  to  the  rate  of  chemical  vapor  dis¬ 
charge  from  the  vent. 

The  discharge  rate  from  the  vent  is 

m  =  *  C0  *  Uj  (44) 

while  the  chemical  transport  rate  may  be  calculated  from  Ooms's  equation  (21) 
J,  =  f  cVr2AV*  [u,  cos  0  *  u*  e'r2/V]  2irrdr  (45) 


At  the  start  of  computation  with  Ooms'  model 

C*  =  C0  and  (46) 

u*  =  Uj  -  Ua  cos  0  (47) 

Integrating  equation  (45)  and  equating  it  to  equation  (44)  gives  an  algebraic 
equation  for  b  in  terms  of  d,  Ua  cos  0  and  Uj 


...  d/j-LAl 

f- 


(48) 


In  the  computer  program,  Ooms'  recommended  value  of  A?  =  1.35  is  used  so 
that  equation  (48)  simplifies  to 


_ 0.6597  d 

[1  +1.35  Ua  cos  0/Uj]0’5 


(49) 
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1 1 1 . 2 . 2  Input  Data  Requirements 


All  of  the  input  data  needed  to  run  the  ONDEK  plume 
dispersion  model  is  entered  by  the  user  from  a  remote  terminal .  In  order 
to  identify  the  output  data  record,  the  user  is  asked  to  supply  the  follow¬ 
ing  information  first. 

o  Today's  date  (up  to  12  characters). 

o  The  name  of  a  vessel,  place  or  other  descriptive 
phase  (up  to  40  characters). 

o  The  name  of  the  cargo  vapor  or  gas  being  emitted 
(up  to  20  characters). 

Next  the  program  takes  a  set  of  variables  within  a  particu¬ 
lar  group,  such  as  "vent  geometry",  or  "atmospheric  conditions".  The  current 
or  default  values  for  each  variable  in  the  group  are  displayed  at  the  user's 
terminal.  The  user  is  asked  to  signify  whether  he  wishes  to  change  any  of  the 
current  values.  If  a  change  is  desired,  the  program  lists  each  value  in  turn, 
and  asks  whether  the  user  accepts  the  listed  value.  If  the  listed  value  is  not 
desired,  the  program  accepts  a  new  value  entered  by  the  user  at  his  terminal. 
Table  IV  furnishes  values  for  the  necessary  chemical  properties  of  eleven  com¬ 
mon  chemicals,  for  use  with  this  program.  After  all  variables  within  a  group 
have  been  accepted  or  updated,  the  program  displays  the  new  set  of  current 
values.  If  this  set  is  accepted,  the  program  moves  on  to  the  next  group. 

The  input  groups  and  sets  of  variables  are  listed  below. 

o  Vent  Geometry 

vent  diameter,  m 

vent  height  above  the  deck,  m 

deck  height  above  the  water  or  dock,  m 

o  Atmospheric  Conditions 

atmospheric  pressure,  psia 

atmospheric  temperature,  °C 

wind  speed  at  reference  height,  m/s 

reference  height,  m 

wind  turbulence  level,  m/s 

o  Plume  Venting  Conditions 

cargo  loading  rate  or  gas  emission  rate,  m3/s 
vapor  molecular  weight,  kg/mole 
cargo  vapor  pressure  corresponding  to  vent  concen¬ 
tration,  psia 

o  Plume  Computation  Conditions 

initial  value  for  plume  path  distance,  m 
distance  along  plume  path  between  printouts,  m 
maximum  downwind  distance  for  computation,  m 
zcon,  height  above  deck  at  which  concentration 
contours  are  predicted,  m 
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TABLE  IV.  CHEMICAL  PROPERTIES  FOR  USE  WITH  THE  ONDEK  PROGRAM 


*  IDLH  level  from  NIOSH/OSHA 
**  Not  available  In  ACGIH 
**  Not  available  In  THRIS 


o  Concentration  Values  for  Hazard  Analysis 

upper  flammable  limit  (UEL),  %  by  volume 

lower  flammable  limit  (LEL),  %  by  volume 

short  term  exposure  limit  (STEL),  ppm 

time  weighted  average-threshold  limit  value  (TLV),  ppm 

odor  threshold,  ppm 

o  Concentration  Values  for  Contour  Plot 

CC1 ,  a  user  selected  value,  ppm 
CC2,  odor  threshold,  ppm 
CC3 ,  upper  flammable  limit,  ppm 
CC4,  lower  flammable  limit,  ppm 
CC5,  short  term  exposure  limit,  ppm 
CC6,  threshold  limit  value,  ppm 

III. 2. 3  Default  Options 

The  ONDEK  computer  program  assigns  initial  or  default 
values  to  all  of  the  input  variables  listed  in  Section  III. 2. 2  with  the  ex¬ 
ception  of  the  current  date,  the  vessel  or  place  name,  and  the  name  of  the 
gas  or  vapor  being  vented.  The  user  must  input  this  information  from  his 
terminal.  Default  values  for  chemical  vapor  properties  are  furnished  as  an 
example  for  vinyl  acetate  vapor.  To  consider  the  venting  of  other  chemicals, 
the  user  must  replace  the  default  values  for  vinyl  acetate  with  the  correct 
values  for  the  new  chemical  as  described  in  Section  III. 2. 2;  chemical  pro¬ 
perties  are  included  in  Table  IV  for  eleven  common  chemicals.  In  addition 
to  listing  default  values,  the  program  also  lists  other  typical  values  for 
each  input  variable  as  described  below. 

o  Vent  Geometry 

Vent  Diameter 

o  0.305  m  (12  inches) 
o  0.203  m  (3  inches)  -  DEFAULT  VALUE 
o  0.102  m  (4  inches) 

Vent  Height  above  Deck 

o  1.0  m  (3.3  ft)  -  DEFAULT  VALUE 
o  4.0  m  (13.1  ft) 

o  6.1  m  (20.0  ft),  or  B/3 

Deck  Height  above  the  Dock 

o  1.0  m  (typical  for  a  barge)  -  DEFAULT  VALUE 

o  6.1  m  (typical  for  a  ship) 

o  Atmospheric  Conditions 

Atmospheric  Pressure 
o  14.7  psia  -  DEFAULT  VALUE 
Atmospheric  Temperature 
O  520  °R  -  DEFAULT  VALUE 
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Reference  Wind  Speed 

o  1  .12  m/s  (2.5  mile/hr) 

o  2.24  m/s  (5.0  mil  e/hr)  -  DEFAULT  VALUE 

o  4.47  m/s  (10.0  mile/hr) 

o  6.71  m/s  (15.0  inile/hr) 

Reference  Heig.it  for  Wind  Speed 

o  10.0  m  (32.8  ft)  -  DEFAULT  VALUE 

Wind  Speed  Turbulence  Level 

o  20%  (recommended  for  wind  generated  turbulence  at 
wind  speeds  of  2  m/s  or  above)  -  DEFAULT  VALUE 

o  30%  (recommended  for  wind  generated  turbulence  at 
wind  speeds  below  2  m/s,  or  when  above  deck  struc¬ 
tures  and  piping  produce  additional  turbulence) 

o  0%  (recommended  only  for  estimating  the  instantan¬ 
eous  boundary  of  the  plume) 

o  Plume  Venting  Conditions 

Cargo  Loading  Rate  or  Gas  Emission  Rate 

o  794  m3/hr  (5000  barrels/hr) 

o  318  m3/hr  (2000  barrels/hr) 

o  159  m3/hr  (1000  barrels/hr)  -  DEFAULT  VALUE 

o  79  m3/hr  (  500  barrels/hr) 

Chemical  Vapor  Molecular  Weight 

o  86.10  (vinyl  acetate  vapor)  -  DEFAULT  VALUE 

Chemical  Vapor  Pressure 

o  90.0mm  Hg  (vinyl  acetate)  -  DEFAULT  VALUE 

The  vapor  concentration  at  the  tank  vent  near  the  end 
of  cargo  loading  may  approach  the  saturated  concentra¬ 
tion  of  chemical  vapor  in  air.  The  default  value 
corresponds  to  the  saturated  vapor  concentration  of 
vinyl  acetate  vapor  in  air  at  a  temperature  of  20°C 
(68°F ) . 

If  the  actual  vapor  concentration  at  the  vent  is  less 
than  the  saturated  vapor  concentration,  the  input  value 
of  chemical  vapor  pressure  should  be  equal  to  the  sat¬ 
uration  vapor  pressure  of  the  chemical  multiplied  by 
the  ratio  of  the  actual  vapor  concentration  at  the  vent 
divided  by  the  saturation  vapor  concentration. 

For  more  information  on  typical  values  of  vent  concen¬ 
tration  during  cargo  loading,  please  refer  to  Refer¬ 
ence  13,  Section  IV. 3. 2. 

o  Plume  Computation  Conditions 

Initial  Value  for  Plume  Path  Distance 

o  0.0  m  -  DEFAULT  VALUE 

Distance  Along  Plume  Path  Between  Printouts 

o  1.0m-  DFFAULT  VALUE 

o  5.0  m 
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Maximum  Distance  for  Plume  Computation 

o  10  m  (recommended  for  1.0  m  vents)  -  DEFAULT  VALUE 

o  20  m  (recommended  for  4.0  m  and  B/3  vents) 

o  100  m 

Specified  Height  Above  Deck  for  Output  of  Vapor 
Concentrations  Downwind  of  the  Vent 

o  1.67  m  (man  breathing  height) 

o  Concentration  values  for  hazard  analysis  (the  values  given 
below  are  default  values  for  vinyl  acetate.  The  user  must 
input  new  values  for  another  chemical). 

Upper  Flammable  limit 
o  13.4%*  -  DEFAULT  VALUE 

Lower  Flammable  Limit 
o  2.6 t*  -  DEFAULT  VALUE 

Short  Term  Exposure  Limit 
o  20  ppm**  -  DEFAULT  VALUE 

Threshold  Liriit  Value 
o  10  ppm*  -  DEFAULT  VALUE 

Odor  Threshold 

o  0.12  ppm*  -  DEFAULT  VALUE 

o  Concentration  values  for  contour  plots  (default  values  are 
supplied  for  vinyl  acetate.  The  user  must  input  new  values 
for  another  chemical). 

CC1,  user  supplied  value 

o  1000  ppm  -  DEFAULT  VALUE  (limit  for  use  of  hydro¬ 
carbon  vapor  canister  masks) 

CC2,  odor  threshold  (see  above) 

CC3,  upper  flammable  limit  (see  above) 

CC4,  lower  flammable  limit  (see  above) 

CC5,  short  term  exposure  limit  (see  above) 

CC6,  threshold  limit  value  (see  above) 


*  CHRIS 
**  1982  ACGIH 
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1 1 1 . 2 . 4  Program  Output 

The  ONDEK  program  opens  an  output  file  named 

"RESONDEK.DAT"  and  outputs 

o  A  summary  of  the  input  data. 

o  A  table  of  computed  values  for  the  plume  variables 
and  the  concentration  contours. 

o  A  plot  of  plume  centerline  concentration  versus 
downwind  distance. 

o  A  plot  of  vapor  concentration  at  man  breathing  height 
(or  other  specified  height)  above  deck  level  versus 
downwind  distance. 

o  A  plot  of  vapor  concentration  contours  at  man  breathing 
height  (or  other  specified  height)  in  the  region  down¬ 
wind  of  the  vent. 

To  illustrate  the  form  of  the  output  data,  an  example  was  run  using  all 
of  the  default  values  specified  in  Section  III. 2  3.  Figure  4  shows  the 
summary  page  listing  the  input  data  values  for  a  loading  of  vinyl  acetate 
into  a  barge.  This  example  assumes  that  the  tank  gas  atmosphere  is  vented 
through  a  0.20  m  flame  screen  in  an  expansion  trunk  at  a  height  of  1  m 
above  the  deck. 

Figure  5  lists  the  values  of  the  plume  variables  and  the 
concentration  contour  locations  downwind  of  the  vent.  Since  the  default 
value  for  DISTAN  was  1.0  m,  output  was  printed  at  increments  of  1  m  up 
to  the  maximum  downwind  distance.  DISMAX  =  10.0  m.  The  table  in  Figure  5 
lists  abbreviations  for  the  names  of  the  plume  variables  as  follows: 

S  =  distance  along  the  locus  of  the  plume  axis,  m 

XCL  =  downwind  distance  from  the  center  of  the  vent,  m 

ZCL  =  vertical  distance  of  the  plume  centerline  above 

the  deck,  m 

CCL  =  vapor  concentration  on  the  plume  centerline,  kg/m3 

CZCON  =  vapor  concentration  at  man  breathing  height  (or 

other  specified  height)  (ZCON),  ka/m3 

XCON  =  downwind  distance  corresponding  to  the  estimate 

of  CZCON,  m 

YC1  =  crosswind  distance,  Y,  to  the  concentration  contours 
thru  corresponding  to  CC1  through  CC6  at  ”  =  XCON 
YC6  and  Z  =  ZCON,  m 

B  =  plume  characteristic  width,  m 

U*  =  velocity  deficit,  the  difference  between  the  plume 

centerline  velocity  and  Ua  cos  9,  m/s 

THETA  =  angle  of  the  plume  axis  with  respect  to  the  horizon, 
radians . 


DATE*  MAR  16. 1983 
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TITLE-  EXAMPLE:  VAM  BARGE  LOADING 
METEOROLOGICAL  CONDITIONS 

0  BAROMETRIC  PRESSURE-760  OOO  MM  HC  AIR  TEMPER ATURE-520  0  DEG  R 
0  AVERAGE  WIND  SPEED-  2  24  M/S  AT  REFERENCE  HEIGHT-  10  00  M 
0  WIND  EXPONENT-  0  14 

0  TURBULENCE  LEVEL-  20.  00 


VAPOR  VENTING  CONDITIONS 

0  VENT  DIAMETER-  0.  20  METERS 

0  VENT  HEIGHT-  1.00  METERS  ABOVE  THE  DECK 

0  DECK  HEIGHT-  1.00  METERS  ABOVE  THE  WATER 

0  EMITTED  VAPOR-  VINYL  ACETATE  VAPOR 

O  MOLECULAR  WEIGHT-  35.  74  OF  CAS  AND  AIR  MIXTURE 
0  VENT  CONCENTRATION-  0  431E+00  KG/(M**3> 

0  VENTING  FLOWRATE-  159.  <M**3)/HR 

O  VENTING  VELOCITY-  1.  36  M/SEC 


VALUES  OF  CONCENTRATION  FOR  FLAMMABILITY  AND  HEALTH  HAZARDS 

0  UPPER  FLAMMABLE  LIMIT  <UEL>  -  0.  4B8E+00  KG/(M**3> 

0  LOWER  FLAMMABLE  LIMIT  (LEL  >  =  0.  947E-01  KC/(M**3> 

0  SHORT  TERM  INHALATION  LIMIT  (STIL)-  O.  72BE-04  KG/(M**3) 
0  THRESHOLD  LIMIT  VALUE  <TLV>  =  0.  364E-04  KG/(M**3> 

0  ODOR  THRESHOLD  (ODOR)  =  0. 437E-06  KG/(M**3> 


VALUES  OF  CONCENTRATION  CHOSEN  FDR  CONCENTRATION  CONTOURS 

0  Cl  -  0. 364E-02  <KG/M*«3> 

0  C2  —  O  437E-06  (KG/M**3> 

O  C3  =  0. 488E+00  <KG/M**3> 

O  C4  -  0. 947E-01  <KG/M**3> 

0  C5  -  O.  728E-04  (KG/M**3> 

0  C6  -  0  364E-04  <KG/M**3> 

0  PREDICTED  FOR  A  HEIGHT  OF  1  680  METERS  ABOVE  DECK  LEVEL 


NUMERICAL  INTEGRATION  DATA 

0  STEP  SIZE-  0.0406  METERS,  MAXIMUM  DOWNWIND  DISTANCE-  10.00  METERS 


FIGURE  4.  SUMMARY  OF  INPUT  DATA  FOR  EXAMPLE  OF 
VINYL  ACETATE  LOADING  INTO  A  BARGE 
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COMPUTED  VALUES  OF  THE  PLUME  VARIABLES  FOR  THE  OUTPUT 
EXAMPLE  OF  VINYL  ACETATE  LOADING  INTO  A  BARGE 


Both  the  0NDE.<3  and  the  0NDEK4  versions  of  the  ONDEK 

model  generate  graph  plots  to  give  a  quick  overview  of  the  vapor  concentra¬ 

tion  distribution.  The  0NDEK4  program,  listed  in  Appendix  B,  writes  an 
output  file  (named  SCRATCH)  that  can  be  addressed  to  draw  graph  plots  using 
graphics  software  supplied  by  the  user.  The  0NDEK3  program,  listed  in 
Appendix  C,  contains  a  subroutine  names  PLOTS  that  generates  graphs  using 
WRITE  statements  for  line  printer  or  CRT  display.  Figures  6,  7,  and  8  are 
plots  obtained  from  0NDEK4  and  a  graph  plotting  program.  An  analogous 
series  of  line  printer  plots  obtained  from  0NDEK3  are  shown  in  Appendix  D. 

Figure  6  shows  the  behavior  of  the  plume  centerline  con¬ 

centration  as  a  function  of  distance  downwind  from  the  vent.  The  plume 
centerline  concentration  is  indicated  by  the  letter  C,  and  the  letters  U, 

L,  S,  and  T  represent  concentration  levels  equivalent  to  the  UEL,  LEL,  STEL, 
and  TLV,  respectively. 

Figure  7  shows  the  behavior  of  the  vapor  concentration  at 
man  breathing  height  as  a  function  of  distance  downwind  from  the  vent.  The 
vapor  concentration  at  breathing  height  is  indicated  by  the  letter  C,  and 
the  letters  U,  L,  S,  and  T  represent  concentration  levels  equal  to  the  UEL, 
LEL,  STEL,  and  TLV,  respectively.  Like  Figure  6,  Figure  7  is  a  semi-log 
plot  of  concentration  versus  downwind  distance. 

Figure  8  shows  a  plot  of  the  vapor  concentration  contours 
downwind  of  the  vent.  Note  that  the  horizontal  axis  corresponds  to  the 
plume  centerline,  so  that  only  1/2  of  the  area  covered  by  the  plume  down¬ 
wind  of  the  vent  is  shown.  Note  also  that  the  vertical  Y  axis  has  been 
stretched  for  clarity.  Symbols  are  used  to  indicate  plume  concentration 
contours  as  follows: 

1  =  CC1 ,  the  user  specified  value 

0  =  Odor  threshold 

U  =  Upper  flammable  limit 

L  =  Lower  flammable  limit 

S  =  Short  term  exposure  limit 

T  =  Threshold  limit  value 
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PLUME  CENTERLINE  CONC.  US  DOHNHIND  DISTANCE 


FIGURE  6.  GRAPH  OF  PLUME  CENTERLINE  CONCENTRATION  VERSUS  DOWNWIND 
DISTANCE  FOR  THE  OUTPUT  EXAMPLE  OF  VINYL  ACETATE 
LOADING  INTO  A  BARGE 


.00  2.00  4.00  6.00  8.00  10.0  12.0 

DOMNMIND  DISTANCE,  h 


FIGURE  7.  GRAPH  OF  VAPOR  CONCENTRATION  AT  MAN  BREATHING  HEIGHT 
VERSUS  DOWNWIND  DISTANCE  FOR  THE  OUTPUT  EXAMPLE 
OF  VINYL  ACETATE  LOADING  INTO  A  BARGE 
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FIGURE  8.  GRAPH  OF  VAPOR  CONCENTRATION  CONTOURS  AT  MAN  BREATHING  HEIGHT  DOWNWIND  OF  A  VENT  FOR 

THE  OUTPUT  EXAMPLE  OF  VINYL  ACETATE  LOADING  INTO  A  BARGE 


I I I . 2 . 5  Hazard  Assessment 

In  order  to  assess  whether  a  potential  flammobi  I  i  ty  or 
toxicity  hazard  exists  during  cargo  loading  or  tank  ventilation,  the  ONDEK 
computer  programs  produce  plots  of  downwind  vapor  concentration  and  vapor 
concentration  contours  at  man  breathing  height,  or  any  other  height  above 
the  deck  that  is  specified  by  the  use  These  plots  indicate  directly 
whether  the  vapor  concentration  is  in  tne  flammable  concentration  range, 
or  if  it  exceeds  either  the  STEL  or  TWA-TLV  concentration  level  for  a 
particular  chemical.  By  choosing  the  scaling  factor  for  the  plots  of  iso¬ 
concentration  contours  to  be  the  same  as  the  scale  factor  for  an  arrange¬ 
ment  drawing  of  the  vessel  deck,  the  contour  plots  can  be  overlaid  directly 
onto  the  deck  arrangement  plan.  This  facilitates  the  interpretation  of  Lhe 
spatial  concentration  predictions. 

For  the  assessment  of  potential  toxicity  hazards,  regions 
of  the  deck  where  the  vapor  concentration  exceeds  the  STEL  limit  value  are 
most  significant.  The  STEL  value  is  the  maximum  acceptable  time  weighted 
average  concentration  value  that  should  not  be  exceeded  for  exposure  of 
short  (usually  15  to  20  minutes)  duration.  It  is  appropriate  to  compare 
ONDEK  plume  model  predictions  for  spatial  concentration  distribution  with 
STEL  levels  since  the  model  was  validated  using  measurements  of  the 
10-minute  time  average  concentration  distribution  during  actual  cargo 
loading  operations  [13]. 

The  experiments  reported  in  Reference  [13]  confirmed  that 
vent  height  above  the  deck  is  an  important  factor  in  determining  the  level 
of  vapor  concentration  at  man  breathing  height  during  cargo  loading  opera¬ 
tions.  The  ONDEK  computer  program  can  be  used  to  review  current  and  pro¬ 
posed  vapor  venting  requirements  for  chemical  cargos.  A  parametric  study 
performed  for  each  hazardous  cargo  will  identify  the  minimum  vent  height 
required  to  prevent  the  vapor  concentration  from  exceeding  the  STEL  at  man 
breathing  height  for  a  range  of  cargo  loading  rates  and  ambient  wind  speed. 
The  results  of  the  parametric  study  could  also  be  used  to  provide  guidance 
on  the  use  of  personal  protective  equipment  on  existing  vessels  that  do  not 
have  vents  of  the  necessary  minimum  height. 


1 1 1. 2. 6  Flow  Charts 

The  ONDEK  computer  program  cbnsists  of  a  main  program 
PLUME  and  several  function  and  subroutine  subprograms.  A  flow  chart  is 
presented  in  this  section  for  each  program  element.  It  is  recommended  that 
the  flow  charts  be  reviewed  in  combination  with  the  computer  program  list¬ 
ing  in  Appendix  B.  The  program  elements  are,  in  the  order  of  their  appear¬ 
ance  in  the  listing. 


0 

Main  Program 

ONDEK 

0 

Integer  Function 

HAMING 

0 

Integer  Function 

RUNGE 

0 

Real  Function 

SIMUL 

0 

Subroutine 

RHS 

0 

Subroutine 

CSUM 

0 

Subroutine 

CONT 

0 

Subroutine 

START 

0 

Subroutine 

INDAT 

0 

Subroutine 

PROMPT 

i 


i 


4 


105 


4 


Store  values  of  plume  variables,  YR,  and 
derivatives,  YR9,  in  Y  and  F  arrays 
needed  for  the  HAMING  integration  subroutine 


455 


Call  HAMING  to  integrate  the  plume  model 
equations 


i 


500 


510 
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Integer  Function  HAMING 


This  program  is  a  general  subroutine  for  solving  a  set  of  first  order 
ordinary  differential  equations.  It  is  called  by  the  main  program  ONDEK, 
and  is  used  to  continue  the  solution  of  the  set  of  plume  development  equa¬ 
tions  after  RUNGE  has  provided  the  set  of  initial  values.  The  function 
specification  is 


Integer  Function  HAMING  (N,Y,F,X,H,TE) 


Function  HAMING  is  taken  from  "Applied  Numerical  Methods"  by  B.  Carnahan, 
H.  A.  Luther,  and  J.  0.  Wilkes  [19]. 


The  value  of  N  is  set  in  the  function  call  statement.  The  value  of  H, 
the  integration  step  size  is  assigned  a  value  in  Program  ONDEK.  The  reader 
is  referred  to  the  text  by  Carnahan,  et  al .  for  a  complete  description  of 
this  function  subroutine.  The  following  paragraph  is  repeated  from  the  pro¬ 
gram  listing. 


HAMING  implements  Hamming's  predictor-corrector  algorithm  to  solve  N 
simultaneous  first-order  ordinary  differential  equations.  X  is  the  indepen¬ 
dent  variable,  and  H  is  the  integration  stepsize.  The  routine  must  be  called 
twice  for  integration  across  each  step.  On  the  first  call,  it  is  assumed 
that  the  solution  values  and  derivative  values  for  the  N  equations  are  stored 
in  the  first  N  columns  of  the  first  four  rows  of  the  Y  matrix  and  the  first 
three  rows  of  the  F  matrix,  respectively.  The  routine  computes  the  N  predicted 
solutions  YPRFD(J),  increments  X  by  H  and  pushes  all  values  in  the  Y  and  F 
matrices  down  one  row.  The  predicted  solutions  YPRED(J)  are  modified,  using 
the  truncation  error  estimates  TE(J)  from  the  previous  step,  and  saved  in  the 
first  row  of  the  Y  matrix.  HAMING  returns  to  the  calling  program  with  the 
value  1  to  indicate  that  all  derivatives  should  be  computed  and  stored  in  the 
first  row  of  the  F  array  before  the  second  call  is  made  on  HAMING.  On  the 
second  entry  to  the  function  (determined  by  the  logical  variable  PRED),  HAMING 
uses  the  Hamming  corrector  to  compute  new  solution  estimates,  estimates  the 
truncation  errors  TE(J)  for  the  current  step,  improves  the  corrected  solu¬ 
tions  using  the  new  truncation  error  estimates,  saves  the  improved  solutions 
in  the  first  row  of  the  Y  matrix,  and  returns  to  the  calling  program  with  a 
value  2  to  indicate  completion  of  one  full  integration  step. 


ill 


Integer  Function  RUNGE 


This  program  is  a  general  subroutine  for  solving  a  set  of  first 
order  ordinary  differential  equations.  It  is  called  by  the  main  program 
ONDEK,  and  is  used  to  start  the  solution  of  the  set  of  plume  development 
equations.  After  three  forward  steps  are  completed,  subroutine  HAMING 
is  used  instead  of  RUNGE  to  continue  the  numerical  integration.  The 
function  specification  is 


Integer  Function  RUNGE  (N,Y,F,X,H) 


Function  RUNGE  is  taken  from  "Applied  Numerical  Methods"  by  B.  Carnahan, 
H.  A.  Luther,  and  J.  0.  Wilkes  [19]. 


The  value  of  N  is  set  in  the  function  call  statement.  The  value  of  H, 
the  integration  step  size  is  assigned  a  value  in  Program  ONDEK.  The  reader 
is  referred  to  the  text  by  Carnahan,  et  al .  for  a  complete  description  of 
this  function  subroutine.  The  following  paragraph  is  repeated  from  the 
program  listing. 


The  function  RUNGE  employs  the  fourth-order  Runge-Kutta  method  with 
Kutta's  coefficients  to  integrate  a  system  of  N  simultaneous  first  order 
ordinary  differential  equations  F(J)  =  DY(J)/DX,  (J=l  ,2, . . . ,N) ,  across  one 
step  of  length  H  in  the  independent  variable  X,  subject  to  initial  conditions 
Y(J),  (J=l ,2, . . .  ,N) .  Each  F(J),  the  derivative  of  Y(J),  must  be  computed 
four  times  per  integration  step  by  the  calling  program.  The  function  must 
be  called  five  times  per  step  (Pass  { 1 ) . . . Pass  (5))  so  that  the  independent 
variable  value  (X)  and  the  solution  values  (Y(1)...Y(N)  can  be  updated  using 
the  Runge-Kutta  algorithm.  M  is  the  pass  counter.  RUNGE  returns  as  its 
value  1  to  signal  that  all  derivatives  (the  F(J))  be  evaluated  or  0  to  signal 
that  the  integration  process  for  the  current  step  is  finished.  SAVEY(J)  is 
used  to  save  the  initial  value  of  Y(J)  and  PHI ( J )  is  the  increment  function 
for  the  J(TH)  equation.  As  written,  N  may  be  no  larger  than  50. 
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Real  Function  SIMUL 


This  program  is  a  general  subroutine  for  solving  matrix  equations. 
It  is  called  by  subroutine  RHS  and  is  used  to  solve  the  matrix  equation 

dc* 

for  the  derivatives  of  plume  concentration ,  -j—  ,  etc.  The  function 

specification  is  s 


Real  Function  SIMUL  (N,A, X, EPS, INDIC, NRC) 


Function  SIMUL  is  taken  from  "Applied  Numerical  Methods"  by  B.  Carnahan, 
H.  A.  Luther,  and  J.  0.  Wilkes  [19]. 


Subroutine  RHS  assigns  values  of  N,  INDIC  and  NRC  in  the  function 
call  statement.  The  value  of  EPS  is  set  in  Program  STEADY.  The  reader 
is  referred  to  the  text  by  Carnahan,  et  al .  for  a  complete  description  of 
this  function  subroutine.  The  following  paragraph  is  taken  from  the  comment 
statements  in  the  program  listing. 


When  INDIC  is  negative,  SIMUL  computes  the  inverse  of  the  N  by 
N  matrix  A  in  place.  When  INDIC  is  zero,  SIMUL  computes  the  N  solutions 
X(1)...X(N)  corresponding  to  the  set  of  linear  equations  with  augmented 
matrix  of  coefficients  in  the  N  by  N+l  array  A  and  in  addition  computes  the 
inverse  of  the  coefficient  matrix  in  place  as  above.  If  INDIC  is  positive, 
the  set  of  linear  equations  is  solved  but  the  inverse  is  not  computed  in 
place.  The  Gauss-Jordan  complete  elimination  method  is  employed  with  the 
maximum  pivot  strategy.  Row  and  column  subscripts  of  successive  pivot  ele¬ 
ments  are  saved  in  order  in  the  IROW  and  JCOL  arrays,  respectively . 

K  is  the  pivot  counter,  PIVOT  the  algebraic  value  of  the  pivot  element, 

MAX  the  number  of  columns  in  A,  and  DETER  the  determinant  of  the  coefficient 
matrix.  The  solutions  are  computed  in  the  (N+l)  th  column  of  A  and  then  un¬ 
scrambled  and  put  in  proper  order  in  X(1)...X(N)  using  the  pivot  subscript 
information  available  in  the  IROW  and  JCOL  arrays.  The  sign  of  the 
determinant  is  adjusted,  if  necessary,  by  determining  if  an  odd  or  even 
number  of  pairwise  interchanges  is  required  to  put  the  elements  of  the  JORD 
array  in  ascending  sequence  where  JORD  ( I  ROW ( I ) )  =  JCOL ( I ) .  If  the  inverse 
is  required,  it  is  unscrambled  in  place  using  Y(1)...Y(N)  as  temporary  stor¬ 
age.  The  value  of  the  determinant  is  returned  as  the  value  of  the  function. 
Should  the  potential  pivot  of  largest  magnitude  be  smaller  in  magnitude  than 
EPS,  the  matrix  is  considered  to  be  singular  and  a  true  zero  is  returned  as 
the  value  of  the  function. 


Subroutine  RHS 


This  subroutine  computes  values  for  the  derivatives  of  the  plume 
variables  along  the  plume  axis  as  required  by  subroutines  RUN6E  and 
HAMING.  The  subroutine  is  called  in  the  main  program  ONDEK  after  every 
call  to  RUNGE  or  HAMING.  The  subroutine  call  furnishes  current  values 
for  the  plume  variables  in  array  V.  Computed  values  of  the  derivatives 
are  returned  in  array  C. 

Both  Ooms '  and  TeRiele's  plume  models  lead  to  sets  of  coupled  first 
order  ordinary  differential  equations  for  the  derivatives  of  the  plume 
variables.  The  subroutine  computes  values  for  the  coefficients  in  each 
equation,  then  calls  subroutine  S IMUL  to  invert  the  coefficient  matrix 
and  calculate  the  value  of  each  derivative.  An  integer  variable  IDECK 
is  used  to  select  Ooms'  model  equations  (IDECK  =  1)  or  TeRiele's  model 
equations  (IDECK  =  0). 


Subroutine  CSUM 


This  subroutine  is  called  to  compute  the  sum  of  an  algebraic 
series  that  arises  in  TeRiele's  conservation  of  momentum  equation. 

The  subroutine  is  called  by  subroutine  RHS.  The  subroutine  call 
furnishes  the  local  value  of  CA,  the  plume  centerline  concentration. 
CSUM  returns  the  sum  of  the  series  in  variable  SUM! . 


I 


This  subroutine  computes  tne  distance  in  the  crosswind  direction 
from  the  center  plane  of  the  plume  (y  =  0)  to  locations  where  the 
vapor  concentration  at  height  ZCON  aDove  the  deck  has  the  values 
stored  in  array  CC.  The  subroutine  is  called  by  the  main  program  ONDEK 
and  distance  values  are  returned  in  array  YC.  As  written,  the  sub¬ 
routine  will  compute  the  location  of  I MUM  £  9  concentration  contours 
The  subroutine  call  in  ONDEK  requests  six  contours  only. 


Return 


Use  TeRiele's  Equations 


Subroutine  INDAT 


This  subroutine  permits  the  user  to  supply  input  data  in  an  inter¬ 
active  manner.  The  program  identifies  each  variable  to  be  specified, 
lists  the  current  "default"  value,  and  asks  the  user  if  this  value  is 
accepted.  If  the  value  is  accepted,  the  subroutine  advances  the  next  vari¬ 
able  and  repeats  the  input  process.  If  the  value  is  rejected,  the  sub¬ 
routine  asks  for  and  accepts  a  new  value,  then  advances  to  the  next  vari¬ 
able. 


The  subroutine  is  called  once  by  the  main  program  ONDEK  Control 
is  returned  to  ONDEK  when  all  input  data  values  are  specified.  All  input 
data  values  are  transferred  to  the  main  program  through  common  blocks 
DAT1 ,  DAT2 ,  DAT3 ,  DAT4,  DAT5  ,  and  DAT 6. 


Go  to  5 


List  current  values  for  plume  computation 

o  SO  =  plume  path  distance 
o  DISTAN  =  distance  between  printouts 
o  DISMAX  =  maximum  downwind  distance 


Do  you  want  to  use  all  of  these  values  ( Y/N ) 


Yes 

r  \ 


Call  PROMPT  to  enter 
new  value  for  SO 


Call  PROMPT  to  enter 
new  value  for  DISTAN 

Call  PROMPT  to  enter 
new  value  for  DISMAX 


Go  to  35 
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List  current  values  for  flammability  and 
health  threshold  concentrations 

o  UEL  =  upper  flammability  limit 

o  LEL  =  lower  flammability  limit 

o  STEL  =  short  term  exposure  limit 
o  TLV  =  threshold  limit  value 

o  ODOR  =  odor  threshold 


Do  you  want  to  use  all  of  these  values(Y/N)? 


Return  Control  to  Program  ONDEK 


V,  > 


This  subroutine  is  used  to  simplify  the  control  logic  in 
subroutine  INDAT.  It  is  called  by  INDAT  to  prompt  the  user  to 
either  accept  the  current  value  of  an  input  variable  or  to  type  in 
a  new  value  to  be  stored  in  VALUE 


l 


III. 2. 7  Example 


This  section  gives  an  example  that  illustrates  the  use  of 
program  ONDEK  to  compute  the  dispersion  of  a  plume  of  benzene  vapor  and 
air  emitted  from  an  open  ullage  hatch  during  cargo  loading  on  a  barge.  The 
desired  input  data  values  are  given  below. 

Date:  Mar.  16,  1983 


Name: 

Benzene  Barge  Loading 

Vapor: 

Benzene  Vapor 

Vent  diameter: 

0.203  m 

Vent  height: 

1.0  m 

Deck  height: 

1.0  m 

Atmospheric  pressure: 

760  mm  Hg 

Atmospheric  temperature: 

520.0  °R 

Wind  speed: 

2.24  m/s 

Reference  height: 

10  m 

Turbulence  level: 

20% 

Cargo  loading  rate: 

79  m3/hr 

Vapor  molecular  weight: 

78.11 

Vapor  pressure: 

77.6  mm  Hg  (which 

is  equivalent 

100%  of  the  saturation  vapor 

concentration 

in  air) 

Initial  plume  path  distance: 

0  m 

Distance  between  printouts: 

1  m 

Maximum  downwind  distance: 

10  m 

Upper  flammable  limit: 

7.9% 

Lower  flammable  limit: 

1.3% 

Short  term  exposure  limit: 

75  ppm 

Threshold  limit  value: 

25  ppm 

Odor  threshold 

4.68  ppm 

CC1  (user  specified  value): 

1000  ppm 

CC2  (odor  threshold): 

4.68  ppm 

CC3  (UEL) : 

79000  ppm 

CC4  (LEL): 

13000  ppm 

CC5  (STEL): 

75  ppm 

CC6  (TLV ) : 

25  ppm 
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The  interactive  input  of  data  by  the  user  from  a  terminal 
is  shown  below.  Each  line  of  input  typed  by  the  user  is  signified  by  the 
words  ***  USER  INPUT  ***  typed  in  the  righthand  margin. 


RUN  UNI  It  I.  a 

:*  f  *  *  *  *  *  *  p  R ' '  G  R  A  M  G  N  D I  I  .  *  *  *  M  *  *  *  *  *  A 

THIS  PROGRAM  CO  MINT  TES  THE  TEA JL  (...  I  GEY  A N D  CONCENTRE.  T  I  ON 
B  1 S  I" R I  B f  1 1  .1  0 N  G F  B 1 1 0  Y  AN  I  ITU M E S  0 1  C IT E M I C  A E  V  A 1 ' 0 E  A N '0  h  i E 
f  Hr',  f  ARE  EMTITtn  INlU  THE  AIR  ABOVE  A  SIT  I.E  GE  BARGE  DECK 

PREPARE  ID  ENIER  ( NPUT  DATA  REQUIREB  BY  THE  PROGRAM 

enter  iobay*s  ban::,  <iu  to  ip  characters > 

MAR  loNVIN  ***USER  INPUT*** 

ENIER  name:  of  of S SET.  >  PEACE  or  DESCRIBING  PHRASE 
(I)P  TO  40  CHARACTERS) 


BEN/I  Nl  t : A R A !  l.UAI.Cl.NI)  '>**USER  INPUT*** 

ENTER  NAME  Of  CARGO  VAPOR  OR  GA  BRING  EMIT  f  IB 
(UP  TO  20  CHARACTERS) 


BE NZEME  VAPOR 


♦  ♦  *  Y 

♦  +  **••<  <•  * 

V  ♦  •>  •>  *  ••{>** 

>  <•  * 

*  •  <r 

1...  [ST 

T  HE  BEE 

ALH...T  VALUE 

S  FOR  OF NT 

GEOMETRY  OAR 

[AT 

!  ES 

VENT 

B T A METE 

r  i  on  v 

O  V 

u  \ 1,0  00'.)  M! 

11 

RS 

OF  NT 

HE  1  GIFT  v 

OH  y 

! 

.  OGOOOw  Ml 

'  IT 

RS 

BECK 

HE) GUT  v 

ZDEGK  >• 

1 

.  0000  (X)  Ml 

.  I  T: 

RS 

BA  Y 

GI.)  WANT 

TO  USE  Al  l 

OF  T LIE' SI 

)nl  lire  •'  Y/N  ') 

i.  is  r 

THE  BE  F 

AULT  0  A  I  N.)  E 

:>  FOR  at  MO 

.1  T  IE  P  !  1  C  OMB)  ■ 

"  I  ON  3 

A  IMG 

> I  ’l  l  1:  E  1. 1 

PRESSURE  •/ 

‘0  •/ 

•  6  (.) .  v)  0  0  0 

MM  HG 

A  IMG 

SINNER  1 1 

1  1  MIN.  RA  T  UR 

■i  rov 

G20 . 0000 

DEG  R 

WIND 

.TIN-  1:.  B  * 

UR  , 

.  240000 

M/S 

IN  R 

•  T.  i'll  T  I  II:. 

1  GUT  »  ZEEE 

1 0 . 00000 

n 

W  T  NB 

ri.JlvBI.il  f; 

Nine  1  EOT  l.v 

U  T 1.  0  V 

♦  ooooo 

z 

DO  < 

Nil  Oi-NT 

IG  USE  A  IN 

OF  THESE 

OAI  1 II  "S  V  Y /(■■>  1  : 

Y 


***USER  INPUT*** 


***U5ER  INPUT*** 


*USER  INPUT*** 
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1. 1  i  iii!  m  i  a 1 1 1  i 


'-'A  I  HI  •  I  I II-  II  1 1  hi  VI  0  I  i  DM)  i  I  i  I  1 1  fj  • . 


i.AKliu  LOADING  k,t  1 1  ,  i.l  , 

VENT  VELOCJ  I  Y  y  II  OF.  N  I  ,• 

VAPOR  1-101  I  C(  !|.  aR  Wl.  i  oi  i  r  ••  wmg  < 

CARGO  V,iPOI  •  PRESSURE*  RVAR» 

vent  concentrat  ion*  co * 


1.59.0000 
I  .  36  A 62. 3 
06 , 1. 0000 
90 . 00000 
0.4312356 


rUi3/lll 

M/S 

MM  II G 
KG/M##3 


DO  YOU  WANT  (  0  USE  Al  l  Of  1 1  If  SI  VAI  HI  'S  ( y/j\j )  r 
N 


***USER  INPUT*** 


EN  I  ER  COAMING  RATE  (OR  GAS  001  ..I.J METRIC  FLOW  RATE) 
01  I  N  Of  i  ERG ** 3/ HR 


r  y  p  i:  i.  ai  vai  .i.ji.  s  are... 

f  V  *4  MET  3/ HE  <  Ei  '•(>('  DHL /HR) 
3  10  H**3/HK  ( 2000  DPI  /HR) 
1.5V  M##3  HE  ■  l  (•()•:-  DDL /HR) 
7  V  M  -  HR  (  L  00  PPL /HR) 


f : < f  1  UER EN  I  DEf  AHI  I  * ' . I  01  IS  1  5*  . 00<"-0 

DC  (UU  WANT  10  USE  THIS  .DEE  A  Ur.  .<  VAI  ME  (Y/N) 
N 

TYPE  IN  NEW  VALUE 

'/  9 


***USER  rNPUT***| 
***USER  INPUT***! 


C  A I .  C  U  (AT  E  D  V  A  L  0  E  0  F  V  E  N  T  V  E I  0  C  I  I  Y  I  S  0 . 6  7  G  0  2  0  3  M  G 

***  +  <■  4  *'.***<•  4  +  %  *  *  '  A  *  *  >  *  f  t  *  4  *  0  (.  4  f  '■  s-  *  4  {.  A  +  y  f. 

ENTER  VAPOR  MOLECUl  I-  WEIGHT*  UIMG 


TYf 

•I  CAR 

VAI  LIES 

ARE 

*  ♦  * 

i. 

6  <  1  0 

(VINYL 

ACE 

TA  1  E  ) 

nu 

I  CERENT  Of  f 

a  in. 

i  value  is  ^ 

8  A ♦  1 

0000 

on 

YOU 

want  io 

US,:' 

THIS  DEE  AUI  l 

VALUE 

( Y/N )  "j 

T  Y 1 
!•(  ,  .1 

IN 

1 

NEW  VAI 

HE 

***USER  INPUT**! 
***U5ER  INPUT**! 
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***USER  TNPUT*** 


i'll  !  i  .  I  'i  i ;  ■  i  ii.ii.l  1 1  ■  !  ■•  f ,  !  |ti(J  fj|  i |  Hi  I  rill  Ml  I  aRuIi  I  UntUNM 

Me  i  1  ;  .11  -■II, M  II  llll  'ii  I  I  It  A  I  I  li  1 1  Hi  ;'(i  H  i  UNCI"  N  i  RA  I  I  !  iiJ .  IN  1 1  I-' 

Hi  "HI  HI  Ml  ...I  lll'n  1 1  n  Uni  *  1 1 1  I  I  •'  I  •  >  .1  111  .  01'  SUril  I  k,M  I 

I  Ml  J  I  I  II  I  'I  M|  . . 

I  Ml,  I '  V  1.1  HI'  I  li  SMI  R  I  I '  V  a  | ' ,  I  i  J  1 1  li  Hi, 

I  i  I'  I  MAI  UAI  III  '■  AIM  .  ,  . 

uo .  hi  r  i  llii  Miii,-!  Ail  i  Alio 

llll  i  DIMM  i  if  li|  |  Ai  II  I  m.iI  HI  IS  --  90  •  OOomA 

I  *  A  ,  Mil  l.«|  Ail  I  Mi  11)1  l  III-::,  01.  I  AUI  I  VALUE  »  r/N)  • 

N 

I  VII  I  iJ  Ml  1,1  i  ll 

'■•'-.A  ***USER 


i : a i  c; in  a  i  i  i i  uni  mi  ( ii  mi  m  i  r. o n c e n  (  e a t  i  n n  »  c o = 


i  rsf  r m:  m  i  aim  i  uni  its  i  or  plume  vent  conditions 


CAL  00  I  I'lAfi  l  i  'A  LM  iTE  "  01  •  79,00000  M*#3/HE 

VEN!  on.ocn  ( *  UUI  NI  v  0  *  6780203  M/S 

V  API  ip  MOL. ECU  AE  WEIGH! >  WHO*  70  .  :l.  1000 

CAROM  VAPOR  PRESSURE  *  I'VAPv  77,60000  MM  l-IG 

1 L  N  T  ( :  0  r  )  i :  I  f  I  f  R  A  C 1 0  N  ••  C  O  »  0  ,  3  3  7  3  ;|.  A  3  K  G  /  M  *  *  3 


.TV  WI..I  WAN  !  TO  USE  Al.  l.  UE  1 1  IE  SL  VALUES  (  Y  <"N  >  ? 

LI  SI  llll:  (H  I  AUI  i"  VAI  IT  A  I  OR  PLUME  COMPUTATION 

II  UNI  f '  A  1 1- 1  1;  1  I j  1 1 : 1  ,  :  0  ,  0 , 0  0  0  0  ( >  0  0  M 

DISTANCE  l:!  I  Wl  I  i)  I  TV  I.  N  .  HU  (S  •<  DISiiTN*  I  ,  OuOOvO  ii 

Hr,  x  (1  •  1  in  N  1,1  |  jin  :  1 1  •  I  ,  ,|  M  I  •  HI  SMAX  *  10,00000  M 
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i  1  r  nil  m.i  aui  :  Vni.ui.  s  i  or  uel. m  el.vS  i  :i:l .  ?  tl  v  and  odor 


***USER 


***USER 


Ml  1 T  I  1  I  ii  Mil  ABI..I:  I.  lull”  UL  I  v  .1  >.-10000  Z 

I  Ml,l|  u  I!  A  Mil  A  DLL  I  I  ii  I  T  -  l.l.l.y  M- 600000  X 
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INPUT*** 


INPUT*** 


INPUT*** 


input*** 


44444*4  4  4444444444  *  444444444 


enter  vai  ui  i  hi-' 


I  IN  It  r  - 1. .  I  N  I  Iff  VOLUME 


TYPICAI  VAI. Ill  S  ARE... 

13.4  %  (  V  I  NY  I  ACL  I  Ad.) 

(  I  F  I  Ml  I.J  1. 1  V  A I  I J  i:  r  S  N 0 T  K  n  0  w  N .  E  N I E R  1  0  0 . 0  ) 


THE  CURRENT  DEFAULT  VALUE  IS  ~  13.40000 

DO  YOU  WANT  JO  USE  THIS  DEFAULT  VALUE  <Y/N>? 
N 

TYPE  IN  NEW  VALUE 
7 . 9 


***USER  INPUT*** 


***USER  INPUT*** 


44>44444444*4444*4*44444*444444444 


ENTER  VALUE  FOR  LEE  IN  PERCENT  BY  VOLUME 

TYPICAL  VALUES  ARE... 

2,6  %  (VINYL  ACETATE) 

(  IF  THE  LEE  VALUE  IS  NOT  KNOWN »  ENTER  100.0) 

THE  CURRENT  DEFAULT  VALUE  IS  -  2,600000 

DO  YOU  WANT  TO  USE  THIS  DEFAULT  VALUE  (Y/N>? 

N 

i  YPI.  IN  NEW  VALUE 
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***USER  INPUT*** 
***USER  INPUT*** 
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***USER  INPUT*** 


***USER  INPUT*** 
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***USER  INPUT*** 
***USER  INPUT*** 


***USER  INPUT*** 


***USER  INPUT*** 


Tabular  and  graphical  outputs  were  obtained  from  both  the 
0NDEK3  and  0NDEK4  computer  programs  for  this  example.  Figures  9  through  13 
show  the  output  from  the  0NDEK4  program.  The  analogous  set  of  tables  and 
graphs  obtained  from  the  0NDEK3  program  is  shown  in  Appendix  E. 

Figure  9  shows  the  input  data  summary  page  for  this  ex¬ 
ample.  Figure  10  shows  the  computed  output  for  values  of  the  plume  variables 
and  concentration  contours  in  table  form.  Note  that  concentration  contours 
were  found  only  for  CC2,  the  odor  threshold  concentration,  CC5,  the  short 
term  exposure  limit,  and  CC6,  the  threshold  limit  value. 

Figure  11  shows  a  graph  of  plume  centerline  concentration 
versus  downwind  distance.  Note  that  the  plume  centerline  concentration  ex¬ 
ceeds  the  LEL,  STEL,  and  TLV  at  different  distances  downwind  of  the  vent. 

Figure  12  shows  a  graph  of  vapor  concentration  at  man 
breathing  height  versus  downwind  distance.  Note  that  very  close  to  the 
vent,  the  concentration  at  breathing  height  is  below  the  TLV.  However, 
further  away  from  the  vent  the  breathing  height  concentration  exceeds  both 
the  TLV  and  STEL  levels. 

Figure  13  shows  a  plot  of  the  concentration  contours  at 
man  breathing  height  above  the  deck.  Note  that  the  vapor  concentration 
exceeds  the  STEL  for  up  to  8  meters  downwind  of  the  vent,  and  the  TLV  for 
more  than  10  meters. 

For  the  specified  conditions  of  cargo  loading  rate,  vent 
concentration,  vent  height,  and  atmospheric  conditions,  the  following  con¬ 
clusions  can  be  drawn: 

o  A  low  tank  vent  (rv  1m  above  the  deck),  as  is  often  used  to 
vent  the  tank  atmosphere  during  cargo  loading  on  a  barge, 
is  not  tall  enough  to  prevent  the  benzene  vapor  concentra¬ 
tion  from  exceeding  both  the  short  term  exposure  limit,  and 
the  threshold  limit  value  over  a  substantial  area  downwind 
of  the  vent. 

o  A  tankerman,  whose  work  requires  him  to  be  present  on  the 
deck  of  the  barge,  may  receive  an  exposure  to  benzene  vapor 
that  exceeds  either  or  both  the  STEL  and  the  TLV  depending 
upon  (1)  the  amount  of  time  he  spends  on  deck,  (2)  his  proxi¬ 
mity  to  the  tank  vent,  (3)  his  ability  to  stand  upwind,  or 
at  right  angles  to  the  direction  of  plume  travel. 

o  Given  the  potential  for  exposure  to  potentially  hazardous 

levels  of  benzene  vapor  during  his  work  activities,  a  tanker- 
man  would  be  well  advised  to  wear  an  appro''"!  cartridge 
respirator  mask  to  remove  benzene  vapor  from  the  air  he 
breaths  during  cargo  loading  activities. 


133 


TITLE-  BENZENE  BARGE  LOADING  DATE-  MAR  16- 19B3 

METEOROLOGICAL  CONDITIONS 

0  BAROMETRIC  PRESSURE-760.000  MM  HG  AIR  TEMPERATURE" 520  0  DEG  R 
0  AVERAGE  WIND  SPEED-  2  24  M/S  AT  REFERENCE  HEIGHT-  10  00  M 
0  WIND  EXPONENT-  0  14 

0  TURBULENCE  LEVEL-  20  00 


VAPOR  VENTING  CONDITIONS 

0  VENT  DIAMETER-  0.  20  METERS 

0  VENT  HEIGHT-  1  00  METERS  ABOVE  THE  DECK 

0  DECK  HEIGHT-  1 .  OC  METERS  ABOVE  THE  WATER 

0  EMITTED  VAPOR-  BENZENE  VAPOR 

0  MOLECULAR  WEIGHT-  33  99  OF  GAS  AND  AIR  MIXTURE 
0  VENT  CONCENTRATION-  0  337E+00  KG/<M**3> 

0  VENTING  FLOWRATE-  79  <M**3)/HR 

0  VENTING  VELOCITY-  0.  68  M/SEC 


VALUES  OF  CONCENTRATION  FOR  FLAMMABILITY  AND  HEALTH  HAZARDS 

0  UPPER  FLAMMABLE  LIMIT  ( UEL )  =  0  261E+00  KG/(M**3) 

0  LOWER  FLAMMABLE  LIMIT  (LEL)  =  0  429E-01  KC/(M**3> 

0  SHORT  TERM  INHALATION  LIMIT  <STIL>-  0  24BE-03  KC/(M**3> 
0  THRESHOLD  LIMIT  VALUE  < TLV )  =  O  B26E-04  KG/<M**3> 

0  ODOR  THRESHOLD  (ODOR)  =  0. 155E-04  KG/CM**3> 


VALUES  OF  CONCENTRATION  CHOSEN  FOR  CONCENTRATION  CONTOURS 

0  Cl  =  0  330E-02  <KG/M**3> 

0  C2  =  0  155E-04  (KG/M**3) 

0  C3  =  0. 261E+00  <KG/M**3> 

0  C4  -  0. 429E-01  <KG/M**3> 

0  C5  =  0  248E-03  <KG/M**3> 

0  C6  -  O. B26E-04  <KC/M**3> 

0  PREDICTED  FOR  A  HEIGHT  OF  1  680  METERS  ABOVE  DECK  LEVEL 


NUMERICAL  INTEGRATION  DATA 

0  STEP  SIZE-  0. 0406  METERS,  MAXIMUM  DOWNWIND  DISTANCE-  10  00  METERS 


FIGURE  9.  SUMMARY  OF  INPUT  DATA  FOR  BENZENE  LOADING  EXAMPLE 
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FIGURE  10.  COMPUTED  VALUES  OF  PLUME  VARIABLES  FOR  BENZENE  BARGE 

LOADING  EXAMPLE 


PLUHE  CENTERLINE  CONC.  MS  DOMNHIND  DISTANCE 


I® 

1-1 

I'2 


r5 

.00  2.00  4.00  6.00  8.00  10.0  12.0 

DOMNHIND  DISTANCE.  N 


FIGURE  11.  GRAPH  OF  PLUHE  CENTERLINE  CONCENTRATION  VERSUS  DOWNWIND 
DISTANCE  FOR  BENZENE  BARGE  LOADING  EXAMPLE 


HAN  BREATHING  HEIGHT  CONC.  MS  DOWNWIND  DISTANCE 


•ee  2.88  4.ee  s.ee  s.ee  ie.e  12. e 

DOWNWIND  DISTANCE*  H 


FIGURE  12.  GRAPH  OF  VAPOR  CONCENTRATION  AT  MAN  BREATHING  HEIGHT 
VERSUS  DOWNWIND  DISTANCE  FOR  BENZENE  BARGE  LOADING 

EXAMPLE 


CONTOURS  AT  BREATHING  HEIGHT  ABOUE  DECK 


FIGURE  13.  CONTOUR  PLOT  OF  CONCENTRATION  AT  MAN  BREATHING  HEIGHT  FOR  BENZENE  BARGE 

LOADING  EXAMPLE 


The  ONDEK  chemical  plume  dispersion  model  does  have  some  limita¬ 
tions  due  to  assumptions  invoked  when  the  model  was  derived.  These  key 
assumptions  are  the  following: 

o  the  chemical  vapor  concentration  distribution  is  assumed  to 
be  symmetrical  about  the  plume  axis; 

o  the  temperature  difference  between  the  plume  and  the  surround¬ 
ing  air  stream  is  assumed  to  be  small; 

i  * 

o  it  is  assumed  that  on-deck  structure  does  not  shield  the  tank 
vent  from  the  wind; 

o  the  ambient  windspeed  near  the  tank  vent  is  assumed  to  be 
equal  to  or  greater  than  0.5  m/s. 

The  model  limitations  resulting  from  these  assumptions  are  discussed 
in  more  depth  in  Section  IV. 3. 5  of  Reference  13. 


The  ONDEK  chemical  plume  dispersion  model  does  have  some  limita¬ 
tions  due  to  assumptions  invoked  when  the  model  was  derived.  These  key 
assumptions  are  the  following: 

o  the  chemical  vapor  concentration  distribution  is  assumed  to 
be  symmetrical  about  the  plume  axis; 

o  the  temperature  difference  between  the  plume  and  the  surround¬ 
ing  air  stream  is  assumed  to  be  small; 

*  * 

o  it  is  assumed  that  on-deck  structure  does  not  shield  the  tank 
vent  from  the  wind; 

o  the  ambient  windspeed  near  the  tank  vent  is  assumed  to  be 
equal  to  or  greater  than  0.5  m/s. 

The  model  limitations  resulting  from  these  assumptions  are  discussed 
in  more  depth  in  Section  IV. 3. 5  of  Reference  13. 
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APPENDIX  A 

PROGRAM  LISTINGS  FOR 

PRETNK  (Interactive  Driver), 

TANKM, 

and 

TANKP 


i 


INTERACTIVE  DRIVER, 
PRETNK 


I 

I 

i 

I 


« 


1 
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PRETNK  FtN; 72  /F77/TR. ALL/WR 

0001  PROGRAM  PRETNK 


Page  1 


0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 


C  THIS  PROGRAM  IS  AN  ITERACTIVE  DATA  INPUT  FORMULATION 

C  PROGRAM  FOR  PROGRAMS  TANKM  AND  TANKP 

C 

DIMENSION  MDOT  <  200 ) .  TABTEM(14),  TABTIM(  14  ) ,  ETIME(200>, 

1  ECVPPM<  200  > 

REAL  L.  M 

INTEGER  TESTNO,  HEVAL 
C 

25  CONTINUE 

TYPE*,  '  ' 

TYPE*,  'PROGRAM  PRETNK  IS  AN  INTERACTIVE  PROGRAM  DESIGNED  FOR' 
TYPE*, 'THE  USER  TO  EASILY  INPUT  DATA  COMPATIBLE  FOR  PROGRAM' 
TYPE*,  'TANKM  OR  -TANKP' 

TYPE*,  '  ' 

TYPE*,  '  1  TANKM  -  PROGRAM  THAT  CALCULATES  THE  CONCENTRATION-' 

TYPE*, '  TIME  HISTORY  OF  CHEMICAL  VAPORS  DISCHARGED' 

TYPE*, '  FROM  A  TANK  DURING  DILUTION  VENTILATION  IN' 

TYPE*, '  THE  PRESENCE  OF  CHEMICAL  SOLUTE  EVAPORATION' 

TYPE*, '  FROM  AN  AQUEOUS  SOLUTION  OF  RESIDUAL  CAKGO' 

TYPE*,  '  ON  THE  TANK  FLOOR  ' 

TYPE*,  '  2.  TANKP  -  PROGRAM  THAT  CALCULATES  THE  CONCENTRATION-' 

TYPE*,  '  TIME  HISTORY  OF  CHEMICAL  VAPOR  DISCHARGED' 

TYPE*,  '  FROM  A  TANK  DURING  DILUTION  VFNTILAT ION  IN' 

TYPE*.  '  THE  PRESENCE  OF  EVAPORATION  OF  PURE  ' 

TYPE*, '  CHEMICAL  RESIDUES  FROM  THE  TANK  WALLS  AND' 

TYPE*. '  FLOOR  ' 

TYPE*- '  ' 

TYPE*,  'SELECT  A  1  OR  2  TO  INDICATE  FOR  WHICH  PROGRAM  YOU  ' 

TYPE*,  'WISH  TO  INPUT  DATA' 

ACCEPT*. ITNK 

IF  (ITNK  NE  1  AND.  ITNK  NE.  2>  GO  TO  25 

IF  (ITNK  EQ  1)  OPEN( UNI T=1 , NAME" ' TANKM I .  DAT ' , TYPE= 'NEW ' ) 

IF  (ITNK  EQ  2)  0PEN(UNIT»2,  NAME* 'TANKPI.  DAT ', TYPE= 'NEW ' ) 

TYPE*.  '  ' 

TYPE*, 'INPUT  TEST  NUMBER' 

ACCEPT*,  TESTNO 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  INPUT  TANK  DIMENSIONS 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

CALL  TKDIM(L,  W,  D) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  INPUT  BLOWER  FLOW  RATE 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

50  CONTINUE 

TYPE*, '  ' 


A-l 
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Page 
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PRETNK 

0036 

0037 

0038 

0039 

0040 


0041 

0042 

0043 

0044 


0045 

0046 


0047 

0048 

0049 

0050 

0051 


0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 
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TYPE*,  'DO  YOU  KNOW  THE  BLOWER  FLOW  RATE  <Y/N>?' 

READ (5,1)  IDO 
1  FORMAT (A2) 

IF  (IDO  NE  1HY  AND  IDO  NE  1HN)  GO  TO  50 
IF  (IDO  .  EQ.  1HN)  GO  TO  ICO 
C 

C  INPUT  MEASURED  FLOW  RATE 

C 

TYPE*,  '  ' 

TYPE*,  'INPUT  MEASURED  FLOW  RATE  (M3/MIN) ' 

ACCEPT*,  Q 
GO  TO  200 

r 

C  DEFAULT  VALUES  USED  AND  INPUT 

C 

100  CONTINUE 

CALL  BLOWER (Q) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c  INPUT  DIAMETER  OF  BUTTERWORTH  OPENING 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

200  CONTINUE 

TYPE*,  '  ' 

TYPE*,  'ENTER  DIAMETER  OF  BUTTERWORTH  OPENING  IN  METERS' 

ACCEPT*,  DIA 

IF  (ITNK  EQ.  2)  GO  TO  350 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  INPUT  SOLUTE  VAPOR  SOLUBILITY 

C  (FOR  TANKM  ONLY) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

GAMINF  =  0 
Cl  *  0 
C2  =  0. 

225  CONTINUE 

TYPE*,  '  ' 

TYPE*.  'HOW  DO  YOU  WANT  TO  CALCULATE  HENRY  S  CONSTANT'" 

TYPE*,  '  1  HENRY  S  CONSTANT  BY  MACKAY  S  METHOD' 

TYPE*,  '  2  HENRY  S  CONSTANT  BY  DILLING  S  METHOD' 

TYPE*,  'SELECT  A  1  OR  2 ' 

ACCEPT*,  HEVAL 

IF  (HEVAL  .  NE.  1  AND  HEVAL  .  NE.  2>  GO  TO  225 
IF  (HEVAL  EQ.  2)  GO  TO  250 
TYPE*,  '  ' 

TYPE*,  'INPUT  GAMINF,  ACTIVITY  COEFFICIENT  AT  INFINITE' 

TYPE*, 'DILUTION  (CHEMICAL  IN  WATER)' 

ACCEPT*, GAMINF 
TYPE*,  '  ' 

TYPE*,  'INPUT  Cl.  C2.  CURVE  FIT  COEFFICIENTS  OF  LIQ  DENSITY' 
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0070 

0071 

0072 

0073 

0074 


0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 


0086 

0087 

0088 


0089 

0090 


0091 


TYPE#, 'AS  FUNCTION  OF  TEMP.  #ROCHEM ( MG/M3  >  -  C1+C2*T.  T(C>' 
ACCEPT#, Cl,  C2 
250  TYPE#,  '  ' 

TYPE*, 'ENTER  S.  SOLUTE  VAPOR  SOLUBILITY  IN  MG/LITER' 

ACCEPT*,  S 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  INPUT  POSTWASH  RESIDUE  THICKNESS  AND  SOLUTE  CONCENTRATION 

C  (FOR  TANKM  ONLY) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

275  CONTINUE 

TYPE*,  '  ' 

TYPE*, 'DO  YOU  KNOW  THE  POSTWASH  RESIDUE  THICKNESS  AND  SOLUTE' 
TYPE*.  'CONCENTRATION  <Y/N>?' 

READ ( 5,  1 )  IDO 

IF  (IDO  .  NE.  1HY  AND  IDO  .  NE.  1HN)  CO  TO  275 
IF  (IDO  .  EG.  1HN)  CO  TO  300 
TYPE*, '  ' 

TYPE*, 'ENTER  RESIDUE  THICKNESS  AND  SOLUTE  CONCENTRATION' 
ACCEPT*,  DELTA,  COL 
CO  TO  400 
C 

C  USE  DEFAULTS 

C 

300  CONTINUE 

CALL  POSTWH (DELTA,  COL,  S) 

CO  TO  400 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  INPUT  THE  THICKNESS  OF  THE  CHEMICAL  RESIDUE  ON  THE  TANK 

C  BOTTOM  AFTER  DISCHARGE 

C  (FOR  TANKP  ONLY) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

350  CONTINUE 

CALL  CHEMRS ( TPOOL,  L,  W) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  INPUT  THE  THICKNESS  OF  THE  RESIDUE  ON  THE  WALLS 

C  (FOR  TANKP  ONLY) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

CALL  TKWALL(TFILM) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c  INPUT  ATMOSPHERIC  PRESSURE  AND  CHEMICAL  VAPOR  PRESSURE 

C  CONSTANTS 
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r. 

-  "  •  ■  • — 1 

■V  . 
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C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

:  - : 

0092 

400 

CONTINUE 

0093 

TYPE*, '  ' 

0094 

TYPE*,  'ENTER  IN  ATMOSPHERIC  PRESSURE  IN  MM  HG  ' 

0095 

ACCEPT*,  PA 

V. 

0096 

TYPE*,  '  ' 

0097 

TYPE*,  'ENTER  A,  E,  C,  CHEMICAL  VAPOR  PRESSURE  CONSTANTS' 

0098 

ACCEPT*,  A,  E,  C 

•  ' 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

- 

c 

PREVENTILATION  VAPOR  CONCENTRATION 

1 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

r  • 

0099 

450 

CONTINUE 

0100 

TYPE*, '  ' 

0101 

TYPE*,  'IS  PREVENTILATION  VAPOR  CONCENTRATION  KNOWN  <Y/N>'" 

0102 

READ ( 5. 1 )  ITIS 

0103 

IF  (ITIS  .  NE  1HY  AND.  ITIS  N£  1HN)  GO  TO  450 

1 

0104 

IF  (ITIS  EG.  1HN )  GO  TO  500 

0105 

TYPE*, '  ' 

0106 

TYPE*,  'ENTER  CONCENTRATION  IN  PPM' 

•- 

0107 

ACCEPT*,  COV 

0108 

GO  TO  600 

. 

0109 

500 

CONTINUE 

1 

* 

01 10' 

c 

CALL  PREVNT ( COV,  A,  B.  C,  PA) 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccecccccccc 

r.‘ 

c 

MAN  ENTRY  INTO  TANK 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

■ 

0111 

600 

CONTINUE 

0112 

TYPE*, '  ' 

\ 

0113 

TYPE*,  'ENTER  FOR  INTEGRATION  ,  TI  (INITIAL  TIME),  AND  DT  ' 

*’ 

0114 

TYPE*, '(INTEGRATION  TIME  STEP)  DT  MUST  BE  A  WHOLE  NUMBER.  ' 

0115 

TYPE*,  'TM  AND  TM+TWORK  MUST  BE  MULTIPLES  OF  DT.  ' 

F^“. 

01 16 

ACCEPT*,  TI,  DT 

*  - 

0117 

CALL  VTWORK ( TWORK,  ITWORK,  TM) 

■*€ 

►  - 

0118 

c 

IF  ( I TNK  EG.  1 )  GO  TO  650 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

INPUT  VAPOR  TEMPERATURES 

c 

(FOR  TANKP  ONLY) 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0119 

TYPE*,  '  ' 

0120 

TYPE*,  'ENTER  VAPOR  TEMPERATURE-  TGAS,  IN  DEGREES  KELVIN' 

r 

4 

0121 

TYPE*,  'DURING  GAS  FREEING.  SINCE  THE  TANK  WILL  NOT  BE' 

r— 

«' 

l  ; 

i.  . 

U' 

A-4 

« 
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0122 

0123 

0124 


0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 


0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 


0151 

0152 

0153 

0154 


TYPE*,  'WASHED,  AN  ISOTHERMAL  VENTILATION  PROCESS  IS  ASSUMED' 
ACCEPT*,  TOAS 
CO  TO  675 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  VENTILATION  DISCHARGE  TEMPERATURE  HISTORY 

C  (FOR  TANKM  ONLY) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

650  CONTINUE 

TYPE*, '  ' 

TYPE*, 'DO  YOU  KNOW  THE  VENTILATION  TIME-TEMPERATURE  DISCHARGE' 
TYPE*, 'HISTORY  <Y/N>  ?' 

READ (5,1)  IDO 

IF  (IDO  . NE.  1HY  AND.  IDO  .  NE.  1HN >  00  TO  650 
TF  -  TM  +  TWORK 

CALL  VENTMP < TABTEM,  TABTIM,  NUMTAB,  IDO,  TI,  TF,  TM) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  OCCUPATIONAL  EXPOSURE  LIMIT 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

675  CONTINUE 

TYPE*,  '  ' 

TYPE*. 'ENTER  OCCUPATIONAL  EXPOSURE  LIMITS  (ACCIH)' 

TYPE*, 'ALL  EXPOSURE  LIMITS  ARE  INPUT  IN  PPM' 

TYPE*, 'DOES  THE  COMPOUND  HAVE  A  CEILING  TLV  (Y/N)?' 

READ (5,1)  ITDOES 

IF  (ITDOES  .  NE.  1HY  AND  ITDOES  .  NE.  1HN)  GO  TO  675 
TLVC  -  0 
TLVTWA  =  0. 

TLVSTL  -  0. 

IF  (ITDOES  .  EQ.  1HN)  CO  TO  700 
TYPE*, 'INPUT  TLVC' 

ACCEPT*,  TLVC 
CO  TO  BOO 
700  CONTINUE 

TYPE*,  '  ' 

TYPE*, 'INPUT  TLVTWA  AND  TLVSTEL ' 

ACCEPT*,  TLVTWA,  TLVSTL 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  INPUT  REMAIN INC  DATA 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

800  CONTINUE 

TYPE*, '  ' 

TYPE*,  'ENTER  M,  SOLUTE  MOLECULAR  WT.  IN  GM/MOLE ' 

ACCEPT*,  M 


A-5 
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0155 

0156 

0157 

0156 

0159 

0160 

0161 

0162 

0163 

0164 

0165  850 

0166 
0167 
0168 
0169 
0170 
0171 
0172 

0173  900 

0174 

C 

C 

C 

0175  925 

0176 
0177 
0178 
0179 
0180 
0181 
0182 

C 

C 

C 

0183  950 

0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 


TYPE*,  '  ' 

TYPE*,  'ENTER  R2,  JET  DEFLECTION  +  WALL  JET  DISTANCE  IN  METERS' 
ACCEPT*, R2 
TYPE*,  '  ' 

TYPE*,  'INPUT  NUMBER  OF  POINTS  IN  EXPERIMENTAL  DATA  ,  MAXIMUM- 
TYPE*,  'OF  200  POINTS  < ENTER  0  (ZERO)  IF  NO  POINTS)' 

ACCEPT*,  NUMEXP 

IF  (NUMEXP  .  LE.  200)  GO  TO  850 

TYPE*,  '***200  IS  MAXIMUM  -  REMAINDER  IS  IGNORED***' 

NUMEXP  =  200 
CONTINUE 

IF  (NUMEXP  EQ  0)  GO  TO  900 
TYPE*,  '  ' 

TYPE*-  'INPUT  TIME  AND  CONCENTRATION  FOR  EACH  POINT' 

TYPE*,'  ETIME(l)  ,  ECVPPM(l)' 

TYPE*,  ' 

TYPE*,'  ETIME  <  NUMEXP )  ,  EC VPPM ( NUMEXP )  ' 

ACCEPT*,  (ETIME(I),  ECUPPM ( I ), 1= 1 , NUMEXP ) 

CONTINUE 

IF  i ITNK  . EQ.  2)  GO  TO  950 

ADDITIONAL  INPUTS  FOR  TANKM 

CONTINUE 
TYPE*, '  ' 

TYPE*,  '1  PERFORM  MINIT  CALCULATION' 

TYPE*.  '2  BYPASS  MINIT  CALCULATION' 

TYPE*, 'SELECT  1  OR  2 ' 

ACCEPT*,  JSWTCH 

IF  (JSWTCH  NE.  1  AND  JSWTCH  .  NE  2)  GO  TO  925 
GO  TO  1000 

ADDITIONAL  INPUTS  FOR  TANKP 
TYPE*, '  ' 

TYPE*,  'ENTER  TB,  CHEMICAL  BOILING  POINT,  DEG  K  ' 

ACCEPT*. TB 
TYPE*,  '  ' 

TYPE*,  'ENTER  IN  G,  CHEMICAL  SURFACE  TENSION,  DYNES/CM  AT  20' 
TYPE*,  'DEG  C  ' 

ACCEPT*, G 
TYPE*, '  ' 

TYPE*,  'ENTER  R,  UNIVERSAL  GAS  CONSTANT  ( CM3-MM  HG )  /  ( MQLE-K ) ' 
ACCEPT*. R 
TYPE*, '  ' 

TYPE*, 'ENTER  Cl,  C2,  CURVE  FIT  COEFFICIENTS  ON  LIQUID  DENSITY' 
TYPE*, 'AS  A  FUNCTION  OF  TEMPERATURE' 

ACCEPT*, Cl,  C2 
TYPE*,  '  ' 

TYPE*,  'ENTER  ALPHA,  BETA,  QAMMA,  CURVE  FIT  COEFFICIENTS  ON  WALL' 
TYPE*,  'TEMPERATURE  FOR  WALLS  PARALLEL  TO  X-Y  PLANE  IN  M' 

ACCEPT*, ALPHA,  BETA,  GAMMA 
TYPE*.  '  ' 

TYPE*,  'ENTER  ZETA,  ETA,  THETA,  CURVE  FIT  COEFFICIENTS  ON  WALL ' 
TYPE*.  'TEMPERATURE  FOR  WALLS  PARALLEL  TO  THE  Y-Z  PLANE  IN  M.  ' 
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0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 


3217 

3218 

3219 

3220 


3221 


>222 

>223 

>224 

>225 

>226 

>227 

>228 

>229 

>230 

>231 

>232 

1233 

>234 

>235 

1236 

1237 
>238 

1239 

1240 
>241 


ACCEPT*,  ZETA,  ETA.  THETA 
TYPE*, '  ' 

TYPE*,  'ENTER  DELTA.  EPSILN,  PHI,  CURVE  FIT  COEFFICIENTS  FOR' 
TYPE*,  'KINEMATIC  VISCOSITY  OF  AIR  ( FT2/SEC )  AS  A  FUNCTION  OF  ' 
TYPE*,  'TEMP (F)  AT  ATMOSPHERIC  PRESSURE.  ' 

ACCEPT*, DELTA,  EPSILN,  PHI 
TYPE#,  '  ' 

TYPE*, 'ENTER  STEP,  NUMBER  OF  SUBDIVSIONS  OF  H,  DY=H/STEP ' 
ACCEPT*, STEP 
TYPE*,  '  ' 

TYPE*, 'ENTER  NSTEP ,  INTEGER  VALUE  OF  STEP' 

ACCEPT*,  NSTEP 
1000  CONTINUE 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  BLOWER  OPERATIONAL  WHILE  MAN  IN  TANK 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

TYPE*,  '  ' 

TYPE#,  'WILL  BLOWER  BE  OPERATING  DURING  TANK  ENTRY  (Y/N)?' 

READ (5,1)  I BLOW 

IF  < I BLOW  .  NE.  1HY  .AND.  IBLOW  .  NE  1HN)  CO  TO  1000 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  OUTPUT  DATA  IN  COMPATIBLE  FORMAT 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

IF  < ITNK  .  EQ.  2  >  CO  TO  1100 

c 

C  OUTPUT  DATA  FOR  TANKM 

C 

WR I TE (1,2)  TESTNO 

WRITE (1,3)  L,  W,  D 

WRITE (1.3)  Q,  DELTA 

WRITE (1.3)  DIA,  M 

WR  I  TE  (1,3)  S,  CAMINF,  Cl.  C2 

WR  I  TE  <  1 ,  3  >  A,  B,  C 

WRITE (1,3)  PA,  R2 

WR ITE ( 1 . 3  >  COL,  CDV 

WRITE  (1,3)  TI,  TM.  TWORK.  DT 

WR I TE (1,4)  NUMTAB 

WRITEd,  5  >  (TABTIMC I  > .  1  =  1,  NUMTAB) 

WR I TE (1,5)  (TABTEM( I >, 1  =  1, NUMTAB) 

WRITEd.  4)  JSWTCH.  HEVAL 
WRITEd,  6)  NUMEXP 

IF  (NUMEXP  NE.  0)  WRITEd, 7>  (ETIMEd).  ECVPPM(  I  > ,  1  =  1 ,  NUMEXP  > 
WRITEd.  B>  I  TWORK,  IBLOW 
WRITEd,  3)  TLVC.  TLVTWA,  TLVSTL 

2  FORMAT (15) 

3  FORMAT (5E l 2.  5> 

4  FORMAT ( 213 ) 
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0242  5 

0243  6 

0244  7 

0245  8 

0246 

C 

C 

C 

0247  1100 

0248 

0249 

0250 

0251  9 

0252 

0253  10 

0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 

0262  1200 


FORMAT <7FB  3) 

FORMAT ( IX,  15) 

FORMAT ( IX, 2F 12.  4) 

FORMAT ( 15, A2) 

CO  TO  1200 

OUTPUT  DATA  FOR  TANKP 
CONTINUE 

WRITE <2, 2)  TESTNO 

WR I TE  ( 2,  9 )  L,  W,  D,  M,  PA,  TD,  G-  R,  STEP,  A,  D,  C,  Cl, 

C2 

WRITE (2,9)  DELTA,  EPSILN.  PHI 
FORMAT ( 6E12.  6) 

WR I TE ( 2, 10)  NSTEP 
FORMAT (14) 

WRITE (2,9)  COV,  Q,  TFILM,  TPOOL,  TGAS,  DIA,  R2 
WRITE (2, 9)  ALPHA,  BETA,  GAMMA 
WR ITE (2,9)  2ETA,  ETA,  THETA 
WR ITE (2,6)  NUMEXP 

IF  (NUMEXP  .  NE.  0)  WRITE(2, 7)  (ETIME(I),  ECVPPM< I >,  1  =  1 , NUMEXP ) 

WRITE ( 2, 9 )  TI,  TM,  TWORK,  DT 

WRITE (2,3)  TLVC,  TLVTWA,  TLVSTL 

WR ITE (2,8)  I TWORK,  IBLOW 

CONTINUE 
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0024 
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SUBROUTINE  TKDIM(L.  W,  D) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  INPUT  OR  SELECT  TANK  DIMENSIONS 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


c 

50 


1 


c 

c 

c 

100 


c 

c 

c 

150 


c 

c 

c 


REAL  L 

continue 

TYPE*, '  ' 

TYPE*, 'DO  YOU  HAVE  TANK  DIMENSIONS  (Y/N>?' 

READ (5,1)  IDO 
FORMAT <A2) 

IF  (IDO  .  NE.  1HY  AND.  IDO  .  NE.  1HN>  CO  TO  50 
IF  (IDO  . EQ.  1HN)  00  TO  100 

TYPE*, '  '  ' 

TYPE*, 'ENTER  TANK  LENGTH.  WIDTH,  AND  DEPTH  IN  METERS' 
ACCEPT*.  L,  U,  D 
00  TO  500 

USER  DOES  NOT  KNOW  DIMENSIONS 

CONTINUE 
TYPE*,  '  ' 

TYPE*, 'WHAT  TYPE  OF  TANK  IS  IT?' 

TYPE*, '  1.  BARGE' 

TYPE*,'  2.  SHIP' 

TYPE*,  'SELECT  1  OR  2 ' 

ACCEPT*,  I TYPE 

IF  (ITYPE  .  NE.  1  .AND  ITYPE  . NE.  2)  GO  TO  100 
IF  (ITYPE  .  EQ.  2)  00  TO  300 

TANK  IS  A  BARGE 

CONTINUE 
TYPE*,  '  ' 

TYPE*,  'DEFAULT  DIMENSIONS  OF  TANK:  ' 


TYPE*, 

t 

1. 

LARGE: 

FULL  BEAM 

TANKS ' 

TYPE*, 

$ 

LENGTH  ■ 

16.  5  M' 

TYPE*. 

0 

WIDTH  - 

B.  2  M' 

TYPE*. 

0 

DEPTH  « 

4.  4  M' 

TYPE*, 

0 

2. 

SMALL: 

PORT/STARBOARD  TANK  SYMMETRIC  ABOUT 

TYPE*, 

t 

CENTER  LINE' 

TYPE*, 

0 

LENGTH  - 

9.  0  M' 

TYPE*, 

0 

WIDTH  - 

6.  8  M' 

TYPE*, 

0 

DEPTH  » 

3.  6  M' 

TYPE*,  'SELECT  1  OR  2 ' 

ACCEPT*.  IBAROE 

IF  (IBAROE  .  NE.  1  .AND.  IBAROE  .  NE.  2>  CO  TO  150 
IF  (IBAROE  .  EQ  2)  CO  TO  200 

LARGE  BARGE 
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L  M6  5 
W  =  8  2 

D  «  4.  4 

00  TO  500 

SMALL  BARGE 

CONTINUE 
L  =  9.  0 
W  =  6.  B 
D  =  3 .6 
GO  TO  500 

TANK  IS  IN  A  SHIP 


CONTINUE 
TYPE*,  '  ' 

TYPE*,  'DEFAULT  DIMENSIONS  FOR  SHIP  TANK: 


0051 

TYPE*,  '  1. 

CENTER 

TANK  ' 

0052 

TYPE*,  ' 

LENGTH 

=  12.  2 

M 

0053 

TYPE*,  ' 

WIDTH 

=  10  9 

M 

0054 

TYPE*.  ' 

DEPTH 

=  14.  6 

M 

0055 

TYPE*,  '  2. 

WING  TANK' 

0056 

TYPE*.  ' 

LENGTH 

=  12.  2 

M 

0057 

TYPE*,  ' 

WIDTH 

=  7.  3 

M 

005S 

TYPE*,  ' 

DEPTH 

=  14.  6 

M 

TYPE*, 'SELECT  1  OR  2 ' 
ACCEPT*, ISHIP 

IF  (ISHIP  .  NE.  1  AND.  ISHIP 
IF  (ISHIP  .  EQ.  2)  GO  TO  400 


2)  GO  TO  300 


CENTER  TANK 

L  *  12  2 
W  =  10  9 
D  =  14  6 
CO  TO  500 

WING  TANK 


0067 

400 

CONTINUE 

0068 

L  =  12.  2 

0069 

W  =  7.  3 

0070 

D  -  14.  6 

0071 

500 

CONTINUE 

0072 

RETURN 

0073 

END 
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000 1  SUBROUT I NE  BLOWER  <  G  ) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  INPUT  OR  SELECT  BLOWER  FLOW  RATE 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCuCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

0002  REAL  K 

c 

0003  50  CONTINUE 

0004  TYPE*, '  ' 

0005  TYPE*,  'DO  YOU  KNOW  THE  BLOWER  TYPE  AND  PRESSURE  <Y/N)?' 

0006  READ (5,1)  IDO 

0007  1  FORMAT  <  A2 ) 

0008  IF  (IDO  .  NE.  1HY  AND.  IDO  .  NE.  1HN>  GO  TO  50 

0009  IF  (IDO  EG.  1HN)  GO  TO  100 

0010  TYPE*, 'USE  MANUFACTURES  Q-P  DATA  -  INPUT  FLOW  RATE' 

0011  ACCEPT*, G 

0012  CO  TO  200 

C 

C  SELECT  DEFAULT  VALUESS 

C 

0013  100  CONTINUE 

0014  TYPE*,  '  ' 

0015  TYPE*, 'SELECT  DEFAULT  FLOW  RATE; ' 


0016 

TYPE*,  ' 

1. 

LOW 

36 

M3/MIN 

0017 

TYPE*,  ' 

2. 

MEDIUM  - 

96 

M3/MIN 

0018 

TYPE*,  •' 

3. 

HIGH 

124 

M3/MIN 

0019  TYPE*. 'ENTER  A  1,  2,  OR  3 ' 

0020  ACCEPT*,  IRATE 

0021  IF(  IRATE  .  NE.  1  .AND.  IRATE  .  NE.  2  AND.  IRATE  .  NE.  3)  GO  TO  100 

0022  IF  ( IRATE  EG  1 )  G  *  36. 

0023  IF  (IRATE  EG.  2)  Q  ■  96. 

0024  IF  (IRATE  EG.  3)  Q  -=  124. 

C 

C  IS  BLOWER  OPERATIONAL 

C 

0025  200  CONTINUE 

0026  TYPE*, '  ' 

0027  TYPE*, 'IS  BLOWER  FULLY  OPERATIONAL  AND  FULLY  MATED  WITH  ' 

0028  TYPE*, 'BUTTERWORTH  OPENINGS  (Y/N)  ?' 

0029  READ (5,1)  IT IS 

0030  IF  ( ITIS  .  NE.  1HY  .AND.  ITIS  .  NE.  1HN)  CO  TO  200 

0031  IF  (ITIS  EG.  1HY)  GO  TO  300 

C 

C  MODIFY  G 

C 

0032  TYPE*, '  ' 

0033  TYPE*, 'MANY  FACTORS  CAN  CONTRIBUTE  TO  A  REDUCED  FLOW  RATE.  ' 

0034  TYPE*, 'AS  SUCH,  A  DEFAULT  VALUE  IS  NOT  OFFERED  BUT  IS  TO  BE' 

0035  TYPE*,  'SELECTED  BASED  ON  THE  USER  JUDGEMENT.  INSERT  THE' 

0036  TYPE*, 'SELECTED  VALUE  OF  K,  WHERE  : ' 

0037  TYPE*, '  K  -  FRACTION  OF  RATED  AIR  FLOW  ENTERING  TANK' 

0038  ACCEPT*,  K 
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Q  i*  0  #  K 
300  CONTINUE 
RETURN 
END 
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0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 


0017 

0018 

0019 


0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 


SUBROUTINE  POSTWH< DELTA,  COL,  S> 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  INPUT  OR  SELECT  POSTWASH  RESIDUE  THICKNESS  AND  SOLUTE 

C  CONCENTRATION 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

50  CONTINUE 

TYPE*, '  ' 

TYPE*.  'THE  ESTIMATED  DEFAULT  RANGE  FOR  POSTWASH  RESIDUE' 

TYPE*.  'THICKNESS:  ' 

TYPE*,  '  DELTA  ■  0.  1  CM  -  2.  5  CM' 

TYPE*, 'SELECT  AND  INPUT  A  NUMERICAL  VALUE  WITHIN  THIS  RANGE' 
ACCEPT*,  DELTA 

IF  (DELTA  .  LT.  .1  OR  DELTA  .  GT.  2.5)  GO  TO  50 
75  CONTINUE 

TYPE*, '  ' 

TYPE*. 'DO  YOU  KNOW  THE  SOLUTE  CONCENTRATION  (Y/N)?' 

READ (5,1)  IDO 
1  FORMAT (A2) 

IF  (IDO  .  NE.  1HY  AND.  IDO  .  NE.  1HN )  GO  TO  75 
IF  (IDO  .  EQ.  1HN )  GO  TO  100 
C 

C  SOLUTE  CONCENTRATION  KNOWN.  SELECT  DELTA  FROM  DEFAULT 

C  RANGE 

C 

TYPE*, 'INPUT  SOLUTE  CONCENTRATION,  COL' 

ACCEPT*,  COL 
GO  TO  300 
C 

C  NEITHER  SOLUTE  CONCENTRATION  NOR  DELTA  KNOWN 

L 

100  CONTINUE 

TYPE*, '  ' 

TYPE*, 'CALCULATE  SOLUTE  CONCENTRATION' 

TYPE*.  '  ' 

TYPE*. 'DEFAULT  OPTIONS  FOR  RESIDUAL  CHEMICAL  VOLUME  AFTER' 

TYPE*,  'DISCHARGE  ARE:  ' 

TYPE*, '  1  FOR  LOW  KINEMATIC  VISCOSITY  CARGOS,  HIGH  DRAFT' 

TYPE*, '  DIFFERENCE  DURING  DISCHARGE,  DEEP  WELL  PUMPS  WITH' 

TYPE*, '  SUMP  AND  SUMP  STRIPPED  WITH  EDUCTOR' 

TYPE*,  '  VRES  -  0.  2  M3' 

TYPE*, '  2.  FOR  HIGH  KINEMATIC  VISCOSITY  CARGD5,  LOW  DRAFT' 

TYPE*,  '  DIFFERENCE  DURING  DISCHARGE,  NO  DEEP  WELL  PUMP  OR' 

TYPE*, '  SUMP.  ' 

TYPE*,  '  VRES  •  5.  0  M3' 

TYPE*. 'SELECT  AND  ENTER  A  "1"  OR  "2"' 

VRES  «  2 

ACCEPT*,  I VRES 

IF  ( I VRES  .  NE.  1  AND.  IVRES  .  NE.  2)  CO  TO  100 
IF  (IVRES  EG.  2)  VRES  -5.0 
TYPE*, '  ' 

TYPE*,  'DEFAULT  WASHING  TIME  IS  48  MIN.  WITH  A  DEFAULT  WASH  ' 


A- 13 


20-Apr-B3 


Page  18 


PDP-11  FORTRAN-77  V4.  1-2  09:50  4B 

PRETNK  FTN. 72  /F77/TR : ALL/WR 


0041 

0042 

0043 

0044 

C 

c 

c 

0045 

0046 

0047 

C 

C 

c 

004S 

0049 

C 

c 

c 

0050 

0051 

0052 

C 

C 

C 

0053  200 

0054 

0055 

0056 

0057 

0058 

0059 

0060  300 

0061 


TYPE*. 'WATER  RATE  OF  0  28  M3/MIN  ' 

TYPE*, '  ' 

TYPE*,  'INPUT  PURE  CHEMICAL  DENSITY  IN  C/CC.  ' 

ACCEPT*,  PCHEM 

CALCULATE  CONCENTRATION  OF  SOLUTE 

COL  ■  VRES  *  PCHEM  *  1E9  /  ( .  2B  *  48  +  VRES) 

TYPE*,  '  ' 

TYPE*. 'COL  =  ' , COL, '  MG/M3 ' 

CHECK  CONCENTRATION  AGAINST  SOLUBILITY  LIMIT 

COLCHK  =  COL  /  1000 
IF  (COLCHK  GE.  S)  GO  TO  200 

CONCENTRATION  IS  LESS  THAN  SOLUBILITY  LIMIT 

TYPE*,  'COL  IS  LESS  THAN  SOLUBILITY  LIMIT.  MODEL  WILL  USE  THE' 
TYPE*.  'DEFAULT  VALUE' 

GO  TO  300 

CONCENTRATION  IS  GREATER  THAN  OR  EQUAL  TO  SOLUBILITY  LIMIT 

CONTINUE 
COL  *  S  *  1000 
TYPE*,  '  ' 

TYPE*,  'CALCULATED  DEFAULT  EXCEEDS  THE  SOLUBILITY  LIMIT  MODEL 
TYPE*, 'WILL  USE  MODIFIED  DEFAULT  CONCENTRATION  EQUAL  TO  ' 
TYPE*, 'SOLUBILITY  LIMIT' 

TYPE*, 'COL  «  '.COL 

CONTINUE 

RETURN 
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0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 


0015 

0016 

0017 

0018 

0019 


0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 


0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 


SUBROUTINE  CHEMRS< TPOOL,  L.  W) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  INPUT  OR  SELECT  THE  THICKNESS  OF  THE  CHEMICAL  RESIDUE  ON  THE 

C  TANK  BOTTOM  AFTER  DISCHARGE 

C 

CCCCCCCCCtfCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

50  CONTINUE 

TVPE*< '  ' 

TYPE*, 'THE  PROGRAM  ASSUMES  THAT  THE  VESSEL  TRIM  ANGLE  IS' 

TYPE*,  'REDUCED  TO  ZERO  AFTER  DISCHARGE  AND  THE  CHEMICAL' 

TYPE*, 'RESIDUE  IS  UNIFORMLY  DISTRIBUTED  OVER  THE  TANK  BOTTOM' 
TYPE*.  'DURING  GAS  FREEING.  ' 

TYPE*, '  ' 

TYPE*, 'DO  YOU  KNOW  THE  THICKNESS  OF  THIS  CHEMICAL  RESIDUE  ON' 
TYPE*, 'THE  TANK  BOTTOM  AFTER  DISCHARGE  (Y/N)?' 

READ< 5, 1 )  I KNOW 

IF  ( I KNOW  .  NE.  1HY  AND.  IKNOW  .  NE.  1HN)  GO  TO  SO 
1  FORMAT  <  A2 ) 

IF  (IKNOW  EG.  1HN)  GO  TO  100 
C 

C  USER  INPUT  TPOOL 

C 

TYPE*. '  ' 

TYPE*. 'INPUT  TPOOL.  THE  THICKNESS  OF  LIQUID  LAYER  ON  TANK' 
TYPE*.  'BOTTOM,  IN  CM' 

ACCEPT*,  TPOOL 
00  TO  400 
C 

C  HELP  USER  CALCULATE  TPOOL 

C 

100  CONTINUE 

TYPE*, '  ' 

TYPE*, 'DO  YOU  HAVE  AN  ESTIMATE  OF  THE  VOLUME  OF  RESIDUAL  ' 

TYPE*, 'PRODUCT  REMAINING  ON  THE  TANK  BOTTOM  AFTER  DISCHARGE' 
TYPE*,  '(Y/N)?' 

READ  (5,1)  IDO 

IF  (IDO  .  NE.  1HY  AND  IDO  .  NE.  1HN)  GO  TO  100 
IF  (IDO  .  EQ  1HY )  CO  TO  200 
C 

C  SELECT  RESIDUAL  CHEMICAL  VALUE 

C 

150  CONTINUE 

TYPE*,  '  ' 

TYPE*,  'DEFAULT  OPTIONS  FOR  RESIDUAL  CHEMICAL  VOLUME  AFTER' 

TYPE*.  'DISCHARGE  ARE:  ' 

TYPE*, '  1.  FOR  LOW  KINEMATIC  VISCOSITY  CARGOS,  HIGH  DRAFT' 

TYPE#,  '  DIFFERENCE  DURING  DISCHARGE,  DEEP  WELL  PUMPS  WITH' 

TYPE*, '  SUMP  AND  SUMP  STRIPPED  WITH  EDUCTOR' 

TYPE*, '  VRES  =  02  M3' 

TYPE*, '  2.  FOR  HIGH  KINEMATIC  VISCOSITY  CARGOS.  LOW  DRAFT' 

TYPE*, '  DIFFERENCE  DURING  DISCHARGE,  NO  DEEP  WELL  PUMP  OR' 

TYPE*, '  SUMP.  ' 
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0039 

0040 

0041 

0042 

0043 

0044 

0045 

C 

c 

c 

0046  200 

0047 

004B 

0049 

C 

C 

C 

0050  300 

0051 

0052 

0053 

0054  400 

0055 

0056 


TYPE*,  '  ORES  =  5.  0  M3' 

TYPE*.  'SELECT  AND  ENTER  A  "l"  OR  "2" ' 

VRES  =  . 2 
ACCEPT#,  IVRES 

IF  (IVRES  .  NE.  1  AND.  IVRES  NE.  2)  CO  TO  150 
IF  (IVRES  EG.  2)  VRES  =5.0 
GO  TO  300 

INPUT  RESIDUAL  CHEMICAL  VOLUME 

CONTINUE 
TYPE*,  '  ' 

TYPE*, 'INPUT  VRES.  THE  VOLUME  OF  THE  RESIDUAL,  IN  M3. 
ACCEPT*,  VRES 

CALCULATE  TPOOL  . 

CONTINUE 

TPOOL  =  VRES  /  (L  *  W>  *  100. 

TYPE*, '  ' 

TYPE*,  'TPOOL  =  '.TPOOL 

CONTINUE 

RETURN 

END 
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0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 


0009 

0010 

0011 

0012 


0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 
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0025 

0026 
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0028 

0029 

0030 


SUBROUTINE  TKWALL (TFILM) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  INPUT  OR  SELECT  THE  THICKNESS  OF  THE  RESIDUE  ON 

C  THE  WALLS 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

50  CONTINUE 

TYPE*, '  ' 

TYPE*. 'IS  THE  FILM  THICKNESS  ON  THE  TANK  WALLS  KNOWN <Y/N>?' 

READ( 5, 1 )  ITIS 
1  FORMAT  <  A2 ) 

IF  (ITIS  .  NE.  1HY  AND.  ITIS  .  NE.  1HN)  CO  TO  50 
IF  (ITIS  EG.  1HN)  GO  TO  100 
C 

C  INPUT  FILM  THICKNESS 

C 

TYPE*, '  ' 

TYPE*, 'INPUT  THE  FILM  THICKNESS,  TFILM,  IN  CM.  ' 

ACCEPT*.  TFILM 
GO  TO  200 
C 

C  SELECT  FILM  THICKNESS 

C 

100  CONTINUE 

TYPE*, 'THE  FOLLOWING  DEFAULT  OPTIONS  REFLECT  A  CARGO  DISCHARGE' 
TYPE*,  'RATE  OF  APPROXIMATELY  200  METRIC  TDNS/HDUR  THE  OPTIONS' 
TYPE*. 'ARE  SENSITIVE  TO  CARGO  KINEMATIC  VISCOSITY,  BUT  ARE' 
TYPE*,  'RELATIVELY  INDEPENDENT  OF  TANK  PLANFORM  DIMENSIONS.  ' 
TYPE*.  '  1.  TFILM  «  3.  9E-03  CM  FOR  KINEMATIC  VISCOSITIES' 

TYPE*. '  OF  THE  ORDER  OF  2O0E-06  M2/SEC.  ' 

TYPE*,  '  2.  TFILM  =  0  UE-03  CM  FOR  KINEMATIC  VISOCITIES' 

TYPE*. '  APPROACHING  IE-06  M2/SEC ' 

TYPE*, '  ' 

TYPE*,  'ENTER  A  1  OR  2  TO  SELECT  THE  DESIRED  TFILM' 

ACCEPT*, I OPT 

IF  ( IOPT  .  NE.  1  .AND.  IOPT  .  NE.  2)  GO  TO  100 
TFILM  “  3.  9E-03 

IF  (IOPT  EG.  2)  TFILM  =  0.  11E-03 
200  CONTINUE 
RETURN 
END 
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0001  SUBROUTINE  VENTMP < TABTEM.  TABTIM,  NUMTAB,  IDO,  TI,  TF,  TM> 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  INPUT  OR  SELECT  VENTILATION  DISCHARGE  TEMPERATURE  HISTORY 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


0002 

DIMENSION  TABTEM ( 1 ) ,  TABTIM(l) 

0003 

IF  < I DO  .  EQ.  1HN )  GO  TO  100 

0004 

TYPE*,  '  ' 

0005 

TYPE*, 'ENTER  NUMBER  OF  TIME  HISTORY  VALUES' 

0006 

ACCEPT*,  NUMTAB 

0007 

IF  (NUMTAB  .  LE.  14)  GO  TO  150 

0008 

TYPE*, '***14  IS  MAXIMUM  -  REMAINDER  IGNORED***' 

0009 

NUMTAB  =  14  . 

0010 

150 

CONTINUE 

0011 

TYPE*,  '  ' 

0012 

TYPE*.  'ENTER  TIME  -  TEMPERATURE  TABLE:  ' 

0013 

TYPE*,'  TABT1M<1)  .  TABTEM(l)' 

0014 

TYPE*, ' 

0015 

TYPE*,'  TABTIM (NUMTAB)  ,  TABTEM ( NUMTAB ) ' 

0016 

ACCEPT*.  ( TABTIM ( I > ,  TABTEM ( I ) ,  1  =  1, NUMTAB) 

0017 

c 

GO  TO  300 

L 

c 

r 

SPECIFY  DEFAULT  FOR  COLD  OR  HOT  WATER  WASH 

0018 

100 

CONTINUE 

0019 

’•YPE*.  '  ' 

0020 

TYPE*, 'WAS  THE  TANK  WASHED  WITH  HOT  WATER  <Y/N>?' 

0021 

READ (5,1)  ITWAS 

0022 

1 

FORMAT <A2) 

0023 

IF  (ITWAS  .  NE.  1HY  AND.  ITWAS  .  NE  1HN)  CO  TO  100 

0024 

c 

IF  (ITWAS  EQ.  1HN )  GO  TO  200 

c 

r 

TANK  WASHED  WITH  HOT  WATER 

0025 

V- 

TYPE*, '  ' 

0026 

TYPE*.  'DEFAULT  TEMPERTURE  OF  41C  WILL  BE  USED  DUR 

0027 

TYPE*,  'VENTILATION' 

0028 

NUMTAB  =  2 

0029 

TABTEM< 1 )  =41. 

0030 

0031 

0032 

0033 


0034 

0035 

0036 

0037 

0038 

0039 


C 

C 

C 

200 


TABTEM<2>  =41. 

TABTIM(l)  =  TI 
TABTIM<2)  =  TM 
GO  TO  300 

TANK  WASHED  WITH  COLD  WATER 

CONTINUE 
TYPE*,  '  ' 

TYPE*,  'COLD  WATER  WASH  TEMPERATURE  AND  RESULTING  VAPOR  TEMPER-' 
TYPE*,  'TURE  WILL  BE  SEASONAL  REGARDLESS  OF  WHETHER  SEA  OR  FRESH' 
TYPE*.  'WATER.  ' 

TYPE*.  '  1.  WINTER  /  GULF  COAST' 
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PRETNL .  FTN  72 

/—  7 7 /*?  a.  '  *»F 

0040 

TY=E*.  '  7H^«f  *1=32' 

0041 

TYPE*.  *  2  SUMMER  /  OwLF  COAST ' 

0042 

TYFE*,  '  TEMF  -  29  A  C  ' 

0043 

TYPE*, 'SELECT  AND  ENTEP  A  "1“  OP  "2“ ' 

0044 

ACCEPT*.  ITEMP 

0043 

IF  (ITEMP  NE  1  ANC  ITEMP  .  NE  2)  CO 

0046 

TEMP  ■  16  5 

0047 

IF  ( I TEMP  .  EQ  2)  TEMF  -  29.4 

0048 

NUMTAB  ■  2 

0049 

T AB  TEM  < 1 )  -  TEMF 

0030 

TA3TEM ( 2 )  ■  TEMP 

0031 

TABTIM(l)  ■  TI 

0032 

T  AB  T I M  <  2 )  -  TF 

0033  300 

CONTINUE 

0034 

RETURN 

0033 

END 

TO  200 


« 
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SUBROUTINE  PREVNT(COV,  A,  B,  C,  P> 


C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  MEASURED  PREVENT I LAT I ON  VAPOR  CONCENTRATION  NOT  KNOWN.  SET 

C  SOME  DEFAULTS  AND  GUIDELINES 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

50  CONTINUE 

TYPE*- '  ' 


TYPE*- 'A  DEFAULT  VALUE  OF  CDV.  THE  VAPOR  CONCENTRATION.  CAN  BE' 
TYPE*, 'SPECIFIED  BY  THE  USER  OR  IT  CAN  BE  CALCULATED:  ' 

TYPE*, '  1.  INPUT  COV  IN  PPM  VALUE  SHOULD  BE  LESS  THAN' 

TYPE*, '  SATURATION  CONCENTRATION  CORRESPONDING  TO  C ARGD ' 

TYPE*, '  TEMPERATURE  THIS  CONDITION  CORRESPONDS  TO  A  TANK' 

TYPE*, '  THAT  HAS  BEEN  EMPTIED  BUT  HAS  BEEN  CLOSED  FOR  A  ' 

TYPE*,  '  LONG  TIME  BEFORE  CLEANING  IS  INITIATED  ' 

TYPE*, '  2.  INPUT  OMEGA  AND  CARGO  TEMPERATURE.  OMEGA  IS  THE' 
TYPE*, '  FRACTION  OF  TANK  VOLUME  OCCUPIED  BY  CARGO  PRIOR  ' 

TYPE*, '  TO  DISCHARGE.  CARGO  TEMPERATURE  IN  DEGREES  C.  ' 

TYPE*,  '  THIS  VALUE  WILL  BE  USED  TO  CALCULATE  COV  ASSUMING' 

TYPE*, '  A  SATURATED  CONCENTRATION  IN  THE  ULLAGE  SPACE' 

TYPE*, '  BEFORE  DISCHARGE  ' 

TYPE*, 'SELECT  A  1  OR  2 ' 

ACCEPT*,  ISEL 

IF  (ISEL  NE.  1  AND.  ISEL  .  NE.  2)  GO  TO  50 
IF  (ISEL  EG  2)  GO  TO  100 
TYPE*, 'INPUT  COV  IN  PPM' 

ACCEPT*.  COV 
CO  TO  200 


C 

C  CALCULATE  COV 

C 

100  CONTINUE 


TYPE*, '  ' 

TYPE*, 'ENTER  OMEGA  AND  CARGO  TEMPERATURE' 

ACCEPT*,  OMEGA,  CTEMP 

PVS  *  10.  **  (A-B  /  (C  *  CTEMP)) 

COV  *  (1  -  OMEGA)  *  PVS  /  P  *  1E6 
200  CONTINUE 

RETURN 
END 
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0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 


SUBROUTINE  VTWORK < TWORK,  ITWORK.  TM) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  GUIDELINES  FOR  DURATION  OF  MAN  IN  TANK 

c  : 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

TYPE*. '  ' 

TYPE*.  'INPUT  VENTILATION  TIME.  TM,  TO  MAN  ENTRY' 

ACCEPT#,  TM 
100  CONTINUE 

TYPE*. '  ' 

TYPE*, 'OPTIONS  FOR  DURATION  OF  MAN  ENTRY,  TWORK  IN  MIN  ,  IS  AS' 
TYPE*.  'FOLLOWS:  ' 

TYPE*. '  1.  BRIEF  VISUAL  INSPECTION  AND  ODOR  DETERMINATION' 

TYPE*. '  WITH  CARGO  SURVEYOR.  ' 

TYPE*.  '  TWORK  «  1  -  2  MIN.  ' 

TYPE*. '  2.  INSPECT  TANK  COATINGS  AND  MEASURE  THICKNESS' 

TYPE*. '  TWORK  *  15-45  MIN.  ' 

TYPE*, '  3.  HAND  MUCKING  OF  RESIDUE  WITH  TOWELS  AND  RAGS' 

TYPE*. '  (RELATIVELY  DIRTY  TANK)' 

TYPE*.  '  TWORK  -  90  MIN.  ' 

TYPE*.  '  4.  SWEEP  DEBRIS  FROM  TANK  BOTTOM  AND  WIPE  PUMP  SUMP' 

TYPE*. '  (RELATIVELY  CLEAN  TANK)' 

TYPE*. '  TWORK  «  40  MIN.  ' 

TYPE*. '  5.  USER  SPECIFIES' 

TYPE*. '9ELECT  AND  ENTER  A  1-5  TO  INDICATE  WORK  DESCRIPTION' 
ACCEPT*,  ITWORK 

TYPE*,  'INPUT  DURATION,  IN  MINUTES.  OF  MAN  ENTRY  IN  TANK' 

ACCEPT*.  TWORK 

IF  (ITWORK  .  EQ.  5)  GO  TO  700 

IF  (ITWORK  .  GT.  1)  GO  TO  200 

IF  (TWORK  .  GE.  1.  AND.  TWORK  LE.  2)  GO  TO  700 
CO  TO  500 

200  IF  (ITWORK  .  GT.  2)  GO  TO  300 

IF  (TWORK  .  GE.  15.  AND  TWORK  .  LE.  45.  )  GO  TO  700 
GO  TO  500 

300  IF  (ITWORK  .  GT.  3)  CO  TO  400 

IF  (TWORK  .  EQ.  90.  )  GO  TO  700 
GO  TO  500 

400  IF  (ITWORK  .  GT.  4)  GO  TO  600 

IF  (TWORK  .  EQ.  40.  )  GO  TO  700 

500  CONTINUE 

TYPE*. '  ' 

TYPE*. 'VALUE  OF  TWORK  NOT  WITHIN  LIMITS  OF  OPTION  '.ITWORK 
TYPE*. ' ***TRY  AGAIN***' 

CO  TO  100 
600  CONTINUE 

TYPE*,  '  ' 

TYPE*,  'OPTION  -  '.ITWORK,  '  NOT  A  VALID  OPTION  -  ***TRY  AGAIN***' 
00  TO  100 
700  CONTINUE 

RETURN 
END 
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PROGRAM  TANKM 

COMMON  /FUNC/Q,  V,  KOL.  AREA.  COL, T.  H, DELTA,  PA, M, A, B. C, PV, 
1  S.  KL.  KG,  NUMTAB,  HEVAL. GAMINF, Cl, C2 

COMMON  /RK/DELY,  DElZ,  CVPPM.  TABTIM,  TABTEM,  III 


DIMENSION  MDOT  <  500 ) 

,  TABTEM< 14), TABTIM ( 1 4 ) ,  TI ME ( 500 ) ,  CVPPMC500) 

DIMENSION  ET I ME  <  30  > 

, ECVPPM<30),  AR<4),  CEXP(500> 

INTEGER  TESTNO 

>,  HEVAL 

REAL  K, KOL, KG, 

KL,  L, 

M, MDOT, MEVAP.  MINIT,  MAIR 

DATA  PARAM  /O. 

331/ 

DATA  MAIR  /2B 

97/ 

C 

PROGRAM  TANKM  CALCULATES  THE  CONCENTRATION-TIME  HISTORY 

OF  CHEMICAL 

c 

VAPORS  DISCHARGED 

FROM 

A  TANK  DURING  DILUTION  VENTILATION  IN  THE 

c 

PRESENCE  OF  CHEMICAL  SOLUTE  EVAPORATION  FROM  AN  AQUEOUS 

SOLUTION  OF 

c 

RESIDUAL  CARGO  ON 

THE 

TANK  FLOOR. 

c 

■*■***#*■*** 

*  *  .* 

**************** 

*  *  *  *  *  * 

c 

MODEL  INPUTS 

c 

QUANTITY 

DESCRIPTION 

UNITS 

c 

TESTNO 

TEST  NUMBER 

c 

L 

TANK  LENGTH 

METER 

c 

W 

TANK  WIDTH 

METER 

c 

D 

TANK  DEPTH 

METER 

c 

Q 

BLOWER  FLOW  RATE 

M3/MIN 

c 

DELTA 

RESIDUE  THICKNESS 

CM 

c 

DIA 

DIA.  OF  B/W  OPENING 

METER 

c 

M 

SOLUTE  MOLECULAR  WT. 

CM/MOLE 

c 

S 

SOLUTE  SOLUBILITY 

MG/LITER 

c 

GAMINF 

ACTIVITY  COEFFICIENT  AT 

— 

c 

- 

INFINITE  DILUTION  (CHEMICAL  IN 

c 

WATER ) 

c 

Cl,  C2 

CURVE  FIT  COEFFICIENTS  OF  LIQ. 

— 

c 

DENSITY  AS  FUNCTION  OF  TEMP.  * 

c 

ROC HEM ( MG/M3 )  =  C1+C2*T,T(C) 

c 

A.  B,  C 

SOLUTE  VAPOR  PRES.  CONST. 

— 

c 

PA 

ATMOSPHERIC  PRESSURE 

MM  HG 

c 

R2 

UET  DEFL  +WALL  JET  DIST. 

METER 

c 

COL 

INITIAL  SOLUTE  CONCEN 

MG/ M3 

c 

COV 

INITIAL  VAPOR  CONCENTRATION 

PPM 

c 

TI 

INITIAL  TIME 

MIN 

c 

TM 

VENTILATION  TIME  TO  MAN- 

MIN 

c 

ENTRY  INTO  TANK 

c 

TWORK 

DURATION  OF  IN-TANK  WORK 

MIN 

c 

DT 

INTEGRATION  TIME  STEP 

MIN 

c 

NUMTAB 

NUMBER  OF  INPUT  EXPERIMENTAL 

— 

c 

VAPOR  CONCENTRATIONS 

c 

TABTIM 

TIME  IN  MINUTES  CORRESPONDING 

MIN 

c 

TO  TEMPERATURES  IN  TABTEM 

c 

VECTOR  TIME*0  REFERENCED 

c 

TO  BEGINNING  OF  VENTILATION 

c 

TABTEM 

VAPOR  TEMPERATURE  AT  TANK 

DEC.  C 

c 

DISCHARGE 

c 

JSWTCH 

JSWTCH=1, PERFORM  MINIT  CALC. 

— 

c 

JSWTCH=2, BYPASS  MINIT  CALCULATION 

c 

HEVAL 

HEVAL* 1; HENRY 'S  CONST  =H ( MACKAY ) 

— 

c 

HEVAL=2; HENRY 'S  CONST =H < D I LL I NG ) 

c 

NUMEXP 

NUMBER  OF  EXPERIMENTAL  DATA 

— 
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ETIME 


ECVPPM 


ITWORK 


IBLCJW 

TLVC 

TLVTWA 

TLVSTL 


ENTRIES 

ARRAY  OF  TIMES  CORRESPONDING  MIN 

TO  ECVPPM 

ARRAY  OF  INPUT  EXPERIMENTAL  PPM 

VAPOR  CONCENTRATIONS 

1  BRIEF  VISUAL  INSPECTION  AND  - 

ODOR  DETERMINATION  WITH  CARGO 
SURVEYOR. 

TWORK  =1-2  MIN. 

2.  INSPECT  TANK  COATINGS  AND 
MEASURE  THICKNESS 
TWORK  =15-5  MIN 

3  HAND  MUCKING  OF  RESIDUE  WITH 
TOWELS  AND  RAGS  (RELATIVELY 
DIRTY  TANK) 

TWORK  =  90  MIN 

4  SWEEP  DEBRIS  ROM  TANK  BOTTOM 
AND  WIPE  PUMP  SUMP 
(RELATIVELY  CLEAN  TANK) 

TWORK  =  40  MIN 

5  USER  SPECIFIES  TWORK 

Y  BLOWER  ON  WHILE  NAN  IN  TANK  - 

N  :  BLOWER  OFF  WHILE  MAN  IN  TANK 
CEILING  EXPOSURE  LIMIT  PPM 

TIME  WEIGHTED  AVERAGE  PPM 

8  -  HOUR  EXPOSURE  LIMIT 
SHORT  TERM  EXPOSURE  LIMIT  PPM 


CALCULATED  QUANTITIES 


QUANTITY  DESCRIPTION 

H  HENRYS  CONSTANT (PARTITION  COEFF) 

KL  LIQUID  PHASE  MASS  TRANSFER  COEFF 

KG  GAS  PHASE  MASS  TRANSFER  COEFF 

KOL  OVERALL  MASS  TRANSFER  COEFF 

AREA  LIQUID  SURFACE  AREA 

V  TANK  VOLUME 

UWIND  CONVECTIVE  EVAPORATION  VEL 

UO  BLOWER  JET  VELOCITY 

PV  PARTIAL  PRESSURE  OF  SOLUTE  AT  TEMP 

P  PARTIAL  PRESSURE  OF  TANK  VAPOR 

CSTAR  EQUILIBRIUM  VAPOR  CONCENTRATION 

MINIT  INITIAL  CHEMICAL  MASS  IN  SOLUTION 


UNITS 

DIMENSIONLESS 

CM/MIN 

CM/MIN 

CM/MIN 

M2 

M3 

M/SEC 
M/SEC 
MM  HG 
MM  HG 
MG/M3 
MG 


*****************************  *****■»*•»***■»*•»■*******•»•***********«•«•**# 

OPEN ( UNIT =6. NAME= 'SYO  TANKMO  DAT ' , TYPE= 'NEW' ) 

0PEN(UNIT  =  1  ,  NAME= 'SYO. TANKMI .  DAT ' , TYPE= 'OLD ' ) 

OPEN < UNI T=3>  NAME= 'SYO:  SCRATCH  DAT'. TYPE= 'NEW ' ) 

READ ( 1 . 5000 ) TESTNO 

READ ( 1 , 5001 )L.  W.  D 

READ( 1, 5001 )Q,  DELTA 

READ ( 1 , 5001 ) D I A.  M 

READ( 1, 5001 >S  GAMINF.Cl  C2 

READ< 1, 5001 )A.  B,  C 

READ ( 1 ,  5001 >Pm,  R2 

READ ( 1,  5001 ) COL .  COV 


A- 2/( 
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0021  READ< 1, 5001 )TI. TM,  TWORK, DT 

C  NUMTAB  IS  THE  NUMBER  OF  VALUES  IN  THE  TIME  AND  TEMPERATURE  TABLES 

0022  READ< 1,5003)  NUMTAB 

0023  READ< 1,5004)  ( TABT IM( I > . I = 1 . NUMTAB ) 

0024  READ (1,5004)  ( TABTEM( I ) , I- 1 , NUMTAB ) 

0025  READ ( 1 .  5003 ) JSWTCH,  HEVAL 

0026  READ ( 1 , 5005 ) NUMEXP 

0027  IF  (NUMEXP  EG.  0)  GO  TO  11 

0028  DO  10  1=1, NUMEXP 

0029  10  READ( 1, 5006)ETIME( I ),  ECVPPM( I ) 

0030  11  CONTINUE 

0031  READ( 1,5007)  ITWORK,  I  BLOW 

0032  5007  FORMAT ( 15,  A2) 

0033  READ ( 1 , 5001 >  TLVC,  TLVTWA,  TLVSTL 

0034  5005  FORMAT ( IX,  15) 

0035  5006  FORMAT( IX,  2F12.  4)  . 

C 

C  TRANSFER  OF  DATA  FROM  TANKM I  INPUT  FILE 

C  IN  PRETNK  IS  COMPLETE 

C 

0036  ICT=1 

0037  1 1 1  =  1 

0038  MEVAP=0  0 

0039  WIDTH=1 . 0 

0040  P 1=3  1415927 

0041  TF  =  TM  +  TWORK 

0042  IF (I BLOW.  EQ.  1HN)TF=TM 

C 

C  PRELIMINARY  CALCULATIONS 

C 

0043  COVPPM  =  COV 

0044  C0V=C0V*PA*298  15*M/(760.  *( TABTEM( 1 )+273  15)*24.  45) 

0045  AREA=L*W 

0046  V=AREA*D 

0047  U0=Q/((60  *PI*DIA**2) /4  ) 

0048  XHC  =  COVPPM  /  1E6 

0049  RHO  =  (XHC  *  M  +  <1  -  XHC)  *  MAIR)  /  MAIR 

0050  FROUDE  =  (UO  *  U0>  /  (9.  8  *  D  *  (RHO  -  1)) 

0051  WRITE <5, 12)  FROUDE 

0052  WRITE (6, 12)  FROUDE 

0053  12  FORMAT(//, IX, 'DENSIMETRIC  FROUDE  NO.  =  ' , F8. 3) 

0054  IF  (FROUDE  .  GT.  50.  )  GO  TO  230 

0055  WRITE(5,  13) 

0056  WRITE (6,  13) 

0057  13  FORMAT (//, 5X,  'DENSIMETRIC  FROUDE  NUMBER  AT  THE  BEGINNING'./ 

1  5X, 'OF  VENTILATION  IS  LESS  THAN  50.  THE  BLOWER  MAY  NOT',/ 

2  5X. 'HAVE  SUFFICIENT  CAPACITY  FOR  THE  VENTILATING  JET',/ 

3  5X, 'TO  PENETRATE  THE  VAPOR  SPACE  AND  IMPINGE  ON  THE  ',/ 

4  5X,  'TANK  BOTTOM.  THE  VAPOR  CONCENTRATION  IN  THE  ULLAGE',/ 

5  5X,  'SPACE  MAY  NOT  BE  WELL-MIXED  AND  HOMOGENEOUS  THROUGHOUT',/ 

6  5X. 'THE  DURATION  OF  GAS  FREEING.  SHORT-CIRCUITING  OF  THE'./ 

7  5X, 'BLOWER  JET  SHOULD  BE  ANTICIPATED  THE  MODEL  DOES  NOT',/ 

8  5X . 'INCLUDE  THIS  CONDITION  AND  WILL  PROCEED  WITH  THE',/ 

9  5X , 'WELL-MIXED  ASSUMPTION  '//) 

0058  GO  TO  235 
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0059 

230 

CONTINUE 

0060 

WR ITE( 5,  14  ) 

0061 

WR I TE ( 6, 14) 

0062 

14 

FORMAT ( //, 5X , 

14  58  22 
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3 

4 

5 

6 


'DENSIMETRIC  FROUDE  NUMBER  AT  BEGINNING 
5X.  'OF  VENTILATION  IS  GREATER  THAN  50.  BlOWER  CAPACITY',/ 
5X,  'IS  SUFFICIENT  FOR  THE  VENTILATING  JET  TO  PENETRATE',/ 
5X, 'THE  VAPOR  SPACE  AND  IMPINGE  ON  THE  TANK  BOTTOM  ',/ 

5X , 'COMPLETE  JET  PENETRATION  AND  IMPINGEMENT  ENSURES',/ 

5X ,  'THAT  THE  VAPOR  CONCENTRATION  IN  THE  ULLAGE  SPACE  ',/ 
5X,  'IS  HOMOGENOUS  AND  THAT  THE  WELL-MIXED  MODELING',/ 

5X, 'ASSUMPTION  IS  VALID.  FOR  FURTHER  DETAILS,  CONSULT', 

/ 5 X ,  'REFERENCE  4  OF  THE  CONTRACT  FINAL  REPORT.  ',//’ 


0063 

235 

CONTINUE 

0064 

CON=  1 

4*U0*DIA**1  12 

0065 

R  1  =0 

1  5*D 

0066 

K=C0N/R1**< 1  12+1.  ) 

0067 

UWIND 

=  (  (K*R 1**2) / (2.  *R2 ) +CON* ( R2**- 1 .  12) /( 1.  -1.  12)*< 1 .  - 

1 

f  r 1 /R2 ) ** ( 1  -1.  12) ) ) *PARAM 

0068 

KG=18 

95*UWIND* ( 1 B  01 6/M ) **.  5 

0069 

KL=0 

33* ( 44  01 1/M)**  5 

0070 

ROCHEM=  <  C  1  +C2*TAETEM  <  1  )  >*10**9 

0071 

GO  TO 

(240.  245),  JSWTCH 

0072 

240 

MINIT 

=CQL*AREA*DELT  A/ 1 00 

C 

ONE-TIME  OUTPUTS 

0073 

245 

WRITE 

(6,  6000 ) TESTNO 

0074 

WRITE 

<6,  6001 ) 

0075 

WRITE 

(6,6012)  HEVAL 

0076 

WRITE 

(6, 6002)0, AREA 

0077 

WRITE 

(6, 6003 ) L , W 

0078 

WRITE 

(6, 6004 )D,  V 

0079 

WRITE 

(6, 6005 ) DELTA,  COL 

0080 

WRITE 

(6, 6006 )S, M 

0081 

WRITE 

(6,6013)  ROCHEM, GAMINF 

0082 

WRITE 

f 6 ■  6007  >FA,  UWIND 

0083 

WP  I  TE 

(6,  6008  )  D I A ,  UO 

0084 

WRITE 

(6.  6009  >  KG ,  R 1 

0085 

WRITE 

(6,  6010  >R2.  KL 

0086 

GO  TO 

(246, 247 )  ,  JSWTCH 

0087 

246 

WRITE 

<6, 601 1 ) MIN I T 

0088 

247 

CONTINUE 

C 

***************************************************************** 

0089 

WR I TE (6, 6014) TLVC ,  TLVTWA,  TLVSTL 

0090 

6014 

FORMAT ( IX, 4HTLVC, 6X, 30HTHRESH0LD  LIMIT  VALUE,  CEILING, 5X, 3HPPM, 

1  7X , El  5  5,  /,  IX,  6HTLVTWA,  4X,  22HTHRESH0LD  LIMIT  VALUE,,/, 

2  1 1 X , 2 1 HT I ME-WE I GHTED  AVER AGE, 1 4X , 3HPPM, 7X , E 1 5.  5, / , 1 X , 

3  6HTLVSTL,  4X,  22HTHRESH0LD  LIMIT  VALUE,  ,/,  1 1 X , 


4 

25HSH0RT- 

-TERM  EXPOSURE 

LIMIT,  10X, 3HPPM, 7X, E15.  5) 

0091 

IF 

( ITWORK 

EG. 

1 )  WRITE ( 6,  1 ) 

TWORK 

0092 

IF 

( IVWORK 

EG. 

2)  WR I TE ( 6, 2 ) 

TWORK 

0093 

IF 

( ITWORK 

EG. 

3)  WR I TE ( 6, 3  > 

TWORK 

0094 

IF 

(ITWORK 

.  EG 

4)  WR I TE  <  6,  4) 

TWORK 

0095 

IF 

( ITWORK 

EG 

5)  WR I TE (6,  5) 

TWORK 

0096 

1 

FORMAT! /,  1 

X, 42HTW0RK 1  -  BRIEF 

VISUAL  INSPECTION  AND  ODOR  , 

1 

1 3HDETERM 1  NAT  I ON,  /,  IX, 

30HWITH  CARGO  SURVEYOR,  TWORK 

n 

C. 

F  1  0 

4,  5H 

MIN  ) 
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0097  2  FORMAT </, IX, 43HTW0RK2  -  INSPECT  TANK  COATINGS  AND  MEASURE  , 

1  10HTHICKNESS  ,  /,  1 X,  9HTW0RK  *  , F10  4, 5H  MIN  ) 

0098  3  FORMAT (42HTW0RK3  -  HAND  MUCKING  RESIDUE  WITH  TOWELS  ,  /,1X, 

1  9HAND  RAGS, /.IX. 

2  34H< RELATIVELY  DIRTY  TANK),  TWORK  =  , F10. 4, 5H  MIN. ) 

0099  4  FORM-.T! /.  IX,  4BHTW0RK4  -  SWEEP  DEBRIS  FROM  TANK  BOTTOM  AND  WIPE  , 

1  9HPUMP  SUMP, 

2  /, IX, 34H!RELATIVELY  CLEAN  TANK),  TWORK  =  .  F10.  4,  5H  MIN  ) 

0100  5  FORMAT!/, IX, 34HTW0RK5  -  USER  SPECIFIES,  TWORK  =  ,  F10.  4,  5H  MIN.  > 

0101  IF  ( I BLOW  EG  1HN)  GO  TO  248 

0102  WRITE (6, 6) 

0103  6  FORMAT! /, IX, 41HBL0WER  IS  ON  DURING  MAN  -  ENTRY  INTO  TANK,/) 

0104  GO  TO  249 

0105  248  WRITE ( 6, 7 ) 

0106  7  FORMAT! /,  IX,  42HBL0WER  IS  OFF  DURING  MAN  -  ENTRY  INTO  TANK,/) 

0107  249  CONTINUE 

C  *******»*t**t*********t«*#****»********Ht**HHt*******HHHHHHHtt*f*(t 

C 

C  CALCULATE  INITIAL  VALUE  OF  PARTITION  COEFFICIENT 

C  FOR  AQUEOUS  SOLUTION. 

C  HEVAL  -  1;  H  IS  CALCULATED  USING  ACTIVITY  COEFFICIENTS 

C  HEVAL  =  2;  H  IS  CALCULATED  FOR  IDEAL,  DILUTE  SOLUTIONS 

C 


0108 

GO  TO  (30, 31 ),  HEVAL 

0109 

30 

WRITE (6, 8000) 

0110 

GO  TO  32 

01 1 1 

31 

WR I  ""E  !  6,  8002) 

0112 

32 

TIME!  (III  >=TI 

0113 

LINf:KT=6 

0114 

CV=COV 

0115 

CL=COL 

0116 

T*TABTEM( 1 ) 

0117 

CVPPM! Ill ) =CV*760.  *(T+273.  15)*24.  45/(PA*298.  15*M> 

01  18 

PV=10. **<A-B/!C+T) ) 

0119 

GO  TO  (20, 21 ) , HEVAL 

0120 

20 

X 1  =  1 .  / ( 1 -MM/ 18.  *0.  9970*10**9 ) * ( 1.  /CL-1.  /ROCHEM) ) 

0121 

IF ( X 1 -0  05)22,  22, 23 

0122 

23 

GAMMA  1  *=GAM I NF**  (  <  1  -X 1 )  **2 ) 

0123 

GO  TO  40 

0124 

22 

GAMMA 1*G AM INF 

0125 

40 

H=1B.  *GAMMA l*!PV/760,  )/(B2  057* ( T+273.  15)) 

0126 

GO  TO  24 

0127 

21 

H* 16.  04*PV*M/( ! T+273.  15>*S> 

0128 

24 

KOL«KL*KG*H/ ( H*KG+KL ) 

0129 

MDOT ( ICT ) =KQL*AREA* !CL-CV/H)/1 00 

0130 

CO  TO  (33, 34),  HEVAL 

0131 

33 

WRITE (6, 8001 1TIME! Ill >, CVPPM! I II ),  CV,  T,  PV,  H,  CL,  GAMMA  1,  KOL, 

1  MDOT! ICT). MEVAP,  XI 

0132 

L I NEKT =L I NEKT  *  3 

0133 

GO  TO  250 

0134 

34 

WRITE (6.  3003 ) TIME! II I ),  CVPPM ( 1 1 1 > , CV,  T, PV, H, CL. KOL, MOOT! ICT), 
1MEVAP 

0135 

L I NEKT^L I NEKT +3 

0136 

250 

CONTINUE 

0137 

FAC  TOR  ~0  0 

A-27 
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013B 

0139 

0140 


0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 


0178 

0179 

0180 

0181 

0182 

0183 

0184 


MEVAP=0  0 
K0UNT=0 
ICT= I CT+ 1 
C 

C  ****  ****  ******  BEGIN  INTEGRATION  *************************** 

C 

CALL  RUNGE<TIME< III >,  CV,  CL,  DT> 

111=111+1 

TIME! II I >=TIME< III-  1 >+DT 

CV=CV+DELY 

CL=CL+DELZ 

C  CALCULATE  TEMPERATURE  AT  TIME 

DO  301  1=1, NUMTAB 

IF(TABTIM( I ) .  LE.  T!ME< 1 1  I ) )G0  TO  301 
G1 =T ABTIM  < 1-1 ) 

G2=TABT I M ( I ) 

G3=TABTEM( 1-1 ) 

G4=TABTEM< I ) 

GO  TO  302 

301  CONTINUE 

302  CONTINUE 

T=  <  G4-G3 ) / ( G2-G 1 )*TIME  < I  I 1 >  +  ( G3*G2-G 1 *G4 > / ( G2-G 1 ) 

CVPPM< I  II )=CV*760  *<T+273  1 5 > *24  45/ ( PA*29B  15*M> 

PV=10  **<A-D/(C+T> ) 

R0CHEM=(C1+C2*T) *10**9 
GO  TO  <25. 26), HE UAL 

25  X 1  =  1 _  / < 1  +  <  M/  1 B.  *0  997*1 0**9 ) * ( 1 .  /CL- 1 .  /ROCHEH ) ) 

IF  <  X 1 -0  05)27, 27,  28 

28  GAMMA  I =G AM I NF**  <  ( 1  — X 1 ) **2 ) 

GO  TO  41 

27  GAMMA 1 =G AM  I NF 

41  H=18  *GAMMAl*<PV/760  ) / < 82  057*(T+273  15)) 

GO  TO  29 

2c  H=16  04*PV*M/ ( (T+273  1 5 ) *S ) 

29  KOL=KL*KG*H/ <H*KG+KL ) 

MDOT  < IC1  )=KOL*AREA* (CL-CV/K) /100 
460  IF  <  KOUNT  EG  ICTJGO  TO  475 
KOUNT =KOUNT  + 1 

IF< (KOUNT  NE  ICT).AND  < KOUNT  NE.  1 ) >FACT0R  =  1  0 
MEVAP=MEVAP+MDOT  <  KOUNT ) *  <  FACTOR* 1  0) 

FACT0R=0  0 
GO  TO  460 

475  MEVAP=MEVAP*W I DTH/2 

IFCHEVAL  EG  2 ) GO  TO  36 
C 

C  HENRY'S  CONSTANT  =  MACKAY 

C 

IF  <  L I NEKT  LT  56>G0  TO  35 
WRITE<6, 8000) 

L I NEKT=6 

35  WRITE <6,  8001 >  T I ME (III). CVPPM  < I  I  I ), CV,  T, PV, H, CL, GAMMA i, KOL. 

1  MDOT ( I CT ) . MEVAP , X 1 

LINEKT=LINEKT+3 
GO  TO  42 

36  CONTINUE 


A 
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HENRY'S  CONSTANT  =  DILL  INC 

IF(LINEKT.  LT.  56) GO  TO  37 
WRITE (6, B002) 

LINEKT  -  6 

7  WRITE (6.  8003) TIME < III). CVPPM( III >. CV, T, PV,  H,  CL.  KOL.  MDOT ( ICT) , 
1 MEVAP 

LINEKT*LINEKT+3 
2  GO  TO  (276, 480).  JSWTCH 
276  IF(MEVAP-MINIT>480,  600,  600 
480  I F  <  T I ME (III) -TF )  250,700.700 
bOO  TAU=TIME (III) 

CTAU=CV 

TTO=ABS(V/Q> 

PV=0. 0 
H=0.  0 
K0L=0. 0 
CL=0  0 

MDOT ( ICT ) =0  0 
605  III  =  IIH-1 

TIME(  III  >=TIME(  III-D+DT 

IF (TIME (III)  GT  (TAU+5  *TTO) )G0  TO  700 

CV-~CTAU*EXP  ( — ( Q/ V ) * (  TIME  (III  >-TAU)  > 

DO  610  1  =  1, NUMT  AB 

IF(TABTIM(I). LE. TIME (III))  GO  TO  61C 
G1=TABTIM( 1-1 ) 

G2=TABTIM( I ) 

G3=TABTEM( 1-1 ) 

C4=TABTEM ( I ) 

GO  TO  620 
blO  CONTINUE 
h20  CONTINUE 

T=(G4-G3)/(G2-G1 )*TIME( III >  >■  ( G3*G2-G  1  *G4  >  /  ( C2-G 1 ) 

CVPPM (III) =CV*760  * ( T+273  1 5 > *24  4 5/ ( PA*298.  1 5*M > 

IF ( HEVAL  EQ  2) GO  TO  39 

HENRY'S  CONSTANT  =  MACKAY 

IFfLINEKT  LT  56)G0  TO  38 
WRITE (6, BOOO ) 

LINEKT=6 

)  WRITE (6, 8001 ) T I  ME  < 1 1 1 ) , CVPPM ( I II ), CV, T, PV, H, CL, GAMMA 1 , KOL, 

1  MDOT< ICT), MEVAP, XI 

LINEKT=LINEKT+3 
GO  TO  44 
’  CONTINUE 

HENRY'S  CONSTANT  =  DILLING 


IF(LINEKT.  LT  56)G0  TO  43 
WRITE <6, 8002) 

LINEKT=6 

WRITE (6, 8003 >TIME( III >, CVPPM ( III >, CV, T, PV, H, CL- KOL, 
1  MDOT ( ICT), MEVAP 
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LINEKT =L INEKT  +3 
44  GO  TO  605 

5000  FORMAT ( 15) 

5001  FORMAT (5E12  5) 

5003  FORMAT (213) 

5004  FORMAT (7F8  3) 

6000  FORMAT  (23X,  '*«■***  TEST  NO  ',13.  '  *****',//) 

6001  F0RMAT(27X,  16H0NE-TIME  OUTPUTS,  /,  1 X, 8HVARIABLE,  2X, 

1  1 1HDESCR IPTION,  24X,  5HUNXTS,  10X,  6HRESULT,  // ) 

6002  FORMAT (IX, 1HQ, 9X, 16HBL0WER  FLOW  RATE. 1 9X, 6HM3/MIN, 4>  E 1 5  5,/. 

1  IX. 4HAREA, 6X, 19HLIQUID  SURFACE  AREA, 1 6X , 2HM2, BX , E 1 5  51 

6003  FORMAT (IX,  1 HL.  9X,  1 1HTANK  LENGTH,  24 X ,  5HMETER ,  5X  ,  E 1 5.  5-  /. 

1  IX,  1HW, 9X,  10KTANK  WIDTH,  25X,  5HMETER,  5X,  E15.  5) 

6004  FORMAT ( 1 X.  1  HD, 9X ,  1 OHTANK  DEPTH, 25X,  5HMETER.  5X, El  5.  5,  /, 

1  IX,  1HV,  9X,  1 1HTANK  VOLUME , 24 X , 2HM3,  BX ,  E 1 5.  5 ) 

6005  FORMAT  (IX,  5HDELTA..5X,  17HRESI  DUE  THICKNESS,  18X,  2HCM,  BX,  E15  5,/, 

1  IX, 3HC0L, 7X, 28HINITIAL  SOLUTE  CONCENTRATION, 7X, 5HMG/M3, 5X, 

2  El  5  5) 

6006  FORMAT ( IX,  1HS,  9X,  1 7HS0LUTE  SOLUBILITY,  18X, 8HMG/LITER,  2X,  E15.  5,  X, 

1  IX,  1HM, 9X,  23HS0LUTE  MOLECULAR  WEIGHT,  12X, 7HGM/M0LE, 3X, E15  5) 

6007  FORMAT (IX, 2HP A, 8X , 20HATM0SPHER I C  PRESSURE,  1 5X ,  5HMM  HG,  5X.E15,  5,/, 

1  IX, 5HUWIND, 5X, 26HC0NVECT I VE  EVAPORATION  VEL, 9X, 5HM/SEC, 5X, 

2  E 1 5  5i 

6008  FORMAT ( 1 X, 3HDI A, 7X, 19HDIA  OF  B/W  OPENING, 16X, 5HMETER, 5X 

1  El  5.  5,  /,  IX, 2HU0, 8X ,  19HBL0WER  JET  VELOCITY,  16X,  5HM/SEC , 5X, 

2  E 1 5  5) 

6009  FORMAT (IX, 2HKG, 8X, 29HGAS  PHASE  MASS  TRANSFER  COEFF, 6X, 6HCM/MIN, 

1  4X, E15  5, /, IX, 2HR1, BX, 28HJET  DEFLECTION  REGION  (0.  3D),7X, 

2  5HMETER , 5X, E15.  5) 

6010  FORMAT ( IX, 2HR2, 8X, 24HJET  DEFL  +  WALL  JET  DIST, 1 1 X, 5HMETER, 5X, 

1  E 1 5  5, /, IX, 2HKL, 8X, 32HLIQUID  PHASE  MASS  TRANSFER  COEFF, 3X, 

2  6HCM/MIN,  4X ,  El  5  5) 

6011  FORMAT (IX. 5HM INIT, 5X, 33HINIT I AL  CHEMICAL  MASS  IN  SOLUTION, 2X, 

1  2HMG,  8X,  El  5  5,  // ) 

bO  1 2  FORMAT  <  IX,  5HHEVAL ,  5X,  26H=1,  H(MACKAY)  .  =2,  H(DILLING)  ,  9X,  6H****** 

1  ,  3X,  AH****,  I  1 , 4H****,  /  ) 

bO 1 3  FORMAT ( IX, 6HR0CHEM, 4X, 20HCHEM.  LIQUID  DENSITY, 1 5X, 5HMG/M3, 5X, 

1 E 1 5  5,  /,  IX, 6HGAMINF,  4X, 26HINF.  DILUT.  ACTIVITY  COEF  ,  9X,  7H** 
2***-**,  3X ,  El 5  5,  /  ) 

8000  FORMAT (  '  1  ',  //4X,  'TIME (MIN)  CV(PPM)  ',  5X,  'CV(MG/M3>  ',  4X,  'TEMP(C) 

2  3X ,  'PV(MM-HG)  ',  7X,  'H',  13X,  'CL  ( MG/M3 )  ',  /,  20X,  '  GAMMA  1  ',  7X, 

3  '  KOL  (  CM/M  I N  )  ',  4X,  'MDOT  (  MG/M  I  N  )  ',  2X,  'MEVAP(MG)  ',4X,  'XKLIG 

4  MOL  FRACTION)  ',  //) 

8001  FORMAT ( 1H  , 6E12  4, 3X , E 1 2.  4,  / ,  1 7X , E 12  4,  2X,  E12  4.  4X,  E12.  4,  2X 

1  E12.  4,  7X,  E12.  4,  /  ) 

8002  FORMAT (  '1  ',  //4X,  '  TIME ( MIN )  CV(PPM)  ',  5X,  'CV(MG/M3)  ', 4X,  'TEMP(C) 

2  3X,  'PV(MM-HG)  ',  7X,  'H',  11X,  'CL(MG/M3)  ',  /-  33X. 

3  'KOL ( CM/MIN )  ', 4X,  'MDOT ( MG/M  IN >  ', 2X,  'MEVAP(MG)  ',  //) 

8003  FORMAT ( 1 H  , 6E12  4, 3X , E 1 2  4, / , 30X , E 12  4, 4X , E12. 4, 2X , E 1 2  4, / ) 


CONTINUE 

CALL  Bi-OW  ( I  BLOW,  TF, 
1  DT,  TIME, 

I  I  I = ( TF-TI ) /DT  + 1 

WRITE  DATA  TO  UNIT  C 


TM,  TWORK, 
CEXP,  TI) 


FOR  PLOTTING 


TLVC,  TLVSTL ,  TLVTWA, 
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C 

0255  WRITE ( 3/ * )  III,  NUMEXP,  TESTNO,  TLVC,  TLVTWA.  TLVSTL 

0256  DQ  800  1=1,  III 

0257  WRITE<3, * )  TIME(I>,  CVPPM(I) 

0258  800  CONTINUE 

0259  IF  (NUMEXP  EQ  0)  00  TO  900 

0260  DO  850  1=1,  NUMEXP 

0261  WRITE (3, *)  ETIME(I),  ECVPPM(I) 

0262  850  CONTINUE 

0263  900  CONTINUE 

0264  STOP 

0265  END 
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OOOl 

0002 

0003 

0004 

0005 

0006 


0007 
OOOB 
0009 
0010 
001 1 
0012 
0013 
0014 
0015 
0016 


0017 
00  IB 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
002B 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 


C  «■**■***•*«•******•**•»•*•**•**•»•**#**#**************************«************ 

FUNCTION  EVAL1X, Y, Z, IKL) 

C 

COMMON  /FUNC/Q.  V, KOL,  AREA,  COL,  T, H, DELTA, PA,  M. A,  D,  C,  PV, 

1  S,  KL, KG,  NUMTAB, HEVAL, GAMINF, Cl, C2 

COMMON  /RK/  DELY, DELZ, CVPPM,  TABTIM, TABTEM,  1 1 1 
DIMENSION  TABT IM  < 14), TABTEM ( 14), CVPPMC500) 

INTEGER  HEVAL 
REAL  KOL, M, MDOT , KG, KL, PV 
C 

C  IKL  =  1  FOR  CV  DIFF  EQUATION 

C  =2  FOR  CL  DIFF  EQUATION 

C  TEMPERATURE  CALCULATION  AT  TIME=X 

C 

DO  501  1=1, NUMTAB 

IF  <  TABTIM ( I  ) .  LE  X  ).G0  TO  501 

G1=TABTIM< 1-1 ) 

G2=T  ABTI M ( I ) 

G3=TABTEM( 1-1 ) 

G4=TABTEM ( I ) 

GO  TO  502 

501  CONTINUE 

502  CONTINUE 

T=(G4-G3)/( G2-G1 > *X  + < G3*G2-G 1*G4 ) / ( G2-G1 ) 

C 

C  END  OF  TEMPERATURE  CALCULATION 

C 

CVPFM< III+l >=Y*760.  * ( T +273.  15)*24.  45/<PA*298.  15*M> 

ROCHEM= <  C 1 +C2*T ) *  1 0**9 
PV=10  ** ( A-B/ < C  +  T )  ) 

GO  TO  (43,  44), HEVAL 

43  Xl  =  l  /  (  1  +<M/1B.  *0  997*10**9  >*U  /Z-l.  /ROCHEM)  > 

I F ( X 1 —0  05)45. 45, 46 

46  GAMMA 1 =GAMINF** (  ( 1 -X 1 ) **2  > 

GO  TO  47 

45  GAMMA 1=G AM INF 

47  H= \ 8  *GAMMA l*(PV/760.  ) / < 82.  057* ( T+273.  15)) 

GO  TO  48 

44  H=16  04*PV*M/ < (T+273. 1 5 ) *S ) 

48  KOL=KL*KG*H/ (H*KG+KL) 

A 1 =— Q* Y 

A2=K0L«AREA*( Z-Y/H) /100 
I F ( IKL  EQ  2 ) GO  TO  570 
EVAL=< A1+A2) /V 
GO  TO  600 

570  EVAL=-KQL*< Z-Y/H) /DELTA 
600  END 
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C  *************  **********************  ************  ***•**•**#*«  ********** 

SUDROUTINE  RUNGE  <  X,  Y,  Z ,  DT  > 

C 

COMMON  /FUNC/Q,  V,  KOL,  AREA,  COL,  T,  H,  DELTA,  PA,  M,  A,  B,  C,  PV, 

1  S-  KL, KG, NUMTAB, HEVAL, GAMINF, Cl, C2 

COMMON  /RK/DELY,  DELZ,  CVPPM,  TABTIM,  TABTEM,  III 
DIMENSION  CVPPM<  500 ) 

REAL  Kl.  K2,  K3,  K4,  LI,  L2, L3, L4, M, KOL, MDOT, KG, KL, PV 
C 

K1=EVAL<X, Y, Z. 1 >*DT 
L1=EVAL<  X, Y, Z. 2! #DT 

K2=EVAL<  X+DT/2  ,  YHU/2  .  t+Ll/2.  ,  1  )*DT 
L2=EVAL  <  X-t-DT  /'2  , Y+Kl/2  ,  Z+Ll /2.  . 2 > *DT 
K3*EVAL( X+DT/2  , Y+K2/2.  .  Z+L2/2.  ,  1 ) *DT 
L3=EVAL<  X+DT/2.  , Y+K2/2.  .  Z+L2/2.  , 2>*DT 
K4*EVAL(X+DT,  Y+K3/Z-H.3,  1)*DT 
L4«=EVAL  (  X+DT ,  Y+K3,  Z+L3, 2>*DT 
DELY“ < K 1 +2.  *K2+2.  *K3+K4)*1.  /6 
DELZ* < L 1 +2  *L2+2.  *L3+L4)*1.  /6. 

END 
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SUBROUTINE  BLDWdBLOW,  TF,  TM,  TWORK,  CVPPM,  TLVC,  TLVS1L, 


TLVTWA, 


TIME.  CEXP,  Tl) 


DIMENSION  CVPPM(l),  TIME(l), 
DOUBLE  PRECISION  WHICH(2> 


CEXP  < 1 > .  I  SAVE (500) 


IF ( I BLOW  EQ.  1HN)TF=TF+TM 
WRITE (6.1)  TM,  TF 

FORMAT  < 1  HI ,  ///,  14X, 35HEVALUAT I ON  OF  VAPOR  CONCENTRATIONS  , 
l  16HDURING  MAN-ENTRY, //, 23X, 26HTANK  IS  ENTERED  AT  TIME  = 

?  F5  1.4H  MIN, /, 23X, 25HTANK  IS  EXITED  AT  TIME  =  ,  F8  1, 

3  4H  MIN.  //  ) 


0007 

WHICH(l)  =  8HTLV-C 

OOOB 

WHICH! 2 )  =  8HTLV-STEL 

0009 

IND  =  1 

0010 

IF  (TLVC  EQ  0)  IND  =  2 

0C1 1 

INDEX  =  (TM  -  TI )  /  DT  +  1 

0012 

IFLAG  =  0 

0013 

TCHECK  =  TLVC 

0014 

IF  (TLVC  .  EQ  0  )  ‘CHECK  = 

TLVSTL 

0015 

KT  =  0 

0016 

NUMVAL  =  (TF  -  TM)  /  DT  + 

1 

0017 

I TOTAL  =  (TF  -  TI)  /  DT  + 

1 

0018 

IF ( I BLOW  EQ  1 HY ) GO  TO  75 

0019 

DO  50  I  =  INDEX-t- 1 ,  ITOTAL 

0020 

CVPPM  < I )=CVPPM( 1-1 ) 

0021 

T I  ME ( I ) =T IME ( 1-1 ) +DT 

0022 

50 

CONTINUE 

0023 

75 

CONTINUE 

0024 

DO  100  I  =  1,  NUMVAL 

0025 

J  =  ITOTAL  -  (NUMVAL  -  I 

> 

0026 

IF  ( CVPPM  <  U )  .  LE  TCHECK)  GO  TO 

0027 

KT  =  KT  +  1 

0028 

ISAVE(KT)  =  J 

0029 

IFLAG  =  1 

0030 

100 

CONTINUE 

0031 

IF  ( I BLOW  EQ  1HN)  GO  TO 

200 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  BLOWER  ON  DURING  ENTRY  OF  MAN  INTO  TANK 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

IF  ( IFLAG  EQ  0)  GO  TO  175 

c 

C  VAPOR  CONCENTRATIONS  EXCEEDED  CEILING  OR  SHORT-TERM 

C  EXPOSURE  LIMITS 


WR I TE (6,2)  WHICH ( I ND ) 

FORMAT </// 1 X ,  10HPREDICTED  , 

3BH INST  ANT  ANEOUS  EXPOSURE  CONCENTRATIONS  , 

1 1HEXCEED  THE  ,  A8,  //,  5X,  10HTIME  <MIN),5X, 

1 9HC0NCENTRAT I  ON  (PPM),/) 

WR I TE (6,3)  ( T I  ME ( I  SAVE ( U ) ) ,  CVPPM ( I  SAVE ( J )), U= 1 . KT ) 
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0036 

3 

FORMAT <6X>  F7.  2,  1 IX. F7.  1.  12X>  2BHHAZARDQUS  WORKING  CONDITIONS) 

0037 

CALL  QSF  <  DT ,  CVPPM< INDEX )  ,  CEXP,  NUMVAL) 

0038 

EXPOS  -  CEXP (NUMVAL)  /  TWORK 

0039 

WRITE(6, 4)  EXPOS 

0040 

4 

FORMAT <// 1 X, 10HPREDICTED  . 

1 

40HAVERAGE  IN- TANK  EXPOSURE  AS  MEASURED  DV  . 

*. 

2 

14H6  DOSIMETER  *  ,  F9.  2,  4H  PPM,/) 

i 

0041 

IF  (EXPOS  . LE.  TCHECK)  GO  TO  125 

0043 

WRITE (6,5)  WHICH ( I ND ) «  WHICH(IND) 

0043 

5 

FORMAT ( IX, 41  HDDS I METER  MONITORING  WOULD  INDICATE  THAT  ,  /, 

. 

1 

IX, 4 1HTHE  AVERAGE  IN-TANK  EXPOSURE  EXCEEDS  THE  ,/, 

2 

1 X, AB, 40H  FOR  THIS  CHEMICAL  VAPOR  AND  A  HAZARDOUS,/, 

i 

3 

IX, 42HW0RK1NG  CONDITION  EXISTS.  REDUCE  EXPOSURE,/, 

■./ 

4 

1 X, 6HBEL0W  , AS, 1 7H  BEFORE  ASSESSING, 

5 

1BH  THE  TWA  EXPOSURE.  ,  /> 

0044 

GO  TO  600  . 

. 

0045 

125 

CONTINUE 

0046 

WR ITE (6,6)  WHICH(IND) 

0047 

6 

FORMAT ( IX, 44HD0S I METER  MONITORING  WOULD  INDICATE  THAT  THE,/, 

1 

IX, 42HAVERAGE  IN-TANK  EXPOSURE  IS  ACCEPTABLE  AND,/, 

2 

1 X,  20HD0ES  NOT  EXCEED  THE  , AB,  1BH  FOR  THIS  CHEMICAL, 

- 

3 

1 X, 6HVAP0R  ) 

0048 

WRITE (6, 7) 

0049 

7 

FORMAT ( IX, 40HH0WEVER,  INSTANTANEOUS  CONCENTRATIONS  DO,/, 

1 

1 X, 44HEXCEED  THESE  LIMITS.  REAL  TIME  MEASUREMENTS  , 

-  ' 

2 

/,  1X.40H0F  VAPOR  CONCENTRATION  MAY  BE  INDICATED  ) 

i.  ‘  * 

0050 

CTWA  -  (EXPOS  *  TWORK)  /  4B0. 

“  / 

0051 

WRITE ( 6, 8 )  CTWA 

*. 

0052 

8 

F0RMAT(/1X,  10HPKEDICTED  , 

1 

1 

4 1 HE I CHT-HOUR  TIME  WEIGHTED  AVERAGE  EXPOSURE, 

2 

3H  ■  ,  F6.  2,  4H  PPM,  /) 

v. 

0053 

IF  (CTWA  .  LT.  TLVTWA)  GO  TO  150 

0054 

WRITE  < 6. 9) 

0055 

9 

FORMAT< IX,  10HPREDICTED  , 

1 

4 1 HE I GHT -HOUR  TIME  WEIGHTED  AVERAGE  EXPOSURE,/, 

' 

2 

IX, 42HEXCEEDS  THE  TLV-TWA.  HAZARDOUS  CONDITIONS,/, 

i 

3 

IX, 10HMAY  EXIST. ) 

0056 

GO  TO  600 

* ; 

0057 

150 

WRITE (6, 10) 

0058 

10 

FORMAT ( IX, 39HM0NIT0R ING  WOULD  ALSO  INDICATE  THAT  THE-/, 

1 

IX, 42HEXP0SURE  IS  ACCEPTABLE  WITH  RESPECT  TO  THE,/, 

2 

IX, BHTLV-TWA.  > 

0059 

GO  TO  600 

C 

ALL  CONCENTRATIONS  WERE  BELOW  CEILING  SHORT-TERM 

c 

EXPOSURE  LIMITS 

0060 

175 

CONTINUE 

. 

0061 

CALL  GSF ( DT ,  CVPPM< INDEX ) ,  CEXP,  NUMVAL) 

0062 

EXPOS  =  CEXP (NUMVAL)  /  TWORK 

0063 

CTWA  ■  (EXPOS  *  TWORK)  /  480. 

4 

0064 

WRITE(6, 11)  EXPOS,  CTWA 

r  — 

0065 

1 1 

FORMAT(/,  IX,  10HPREDICTED  . 

1 

37HAVERAGE  EXPOSURE  DURING  TANK  ENTRY  =  ,  F9.  2, 

2 

4H  PPM, /, 

A 

* 

' 

A 
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IX. 44HE I GHT-HOUR  TIME  WEIGHTED  AVERAGE  EXPOSURE  ■ 

4 

F9. 2, 4H  PPM/ ) 

0066 

IF  <  CTWA  .  LT.  TLVTWA )  GO  TO  180 

0067 

WRITE<6. 12)  WHICH ( IND ) 

0068 

12 

FORMAT( IX,  10HPREDICTED  , 

1 

40HE I GHT-HOUR  TWA  EXPOSURE  EXCEEDS  TLV-TWA  , 

7 

33H  HAZARDOUS  CONDITIONS  MAY  EXIST  ,  /, 

3 

35HSINGLE  EXPOSURE  DOES  NOT  EXCEED  THE  ,  AB,  / ) 

0069 

GO  TO  600 

0070 

180 

CONTINUE 

0071 

WRITE <6. 13) 

0072 

13 

FORMAT! IX, 10HPRED1CTED  , 

1 

45HSINGLE  EXPOSURE  IS  ACCEPTABLE  WITH  RESPECT  TO 

2 

29H  TLV-C ,  TLV-STEL,  AND  TLV-TWA) 

0073 

GO  TO  600 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


C 

C 

/* 

BLOWER  NOT  ON  DURING  ENTRY  OF  MAN 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

r 

0074 

200 

CONTINUE 

0075 

IF  (CVPPM( INDEX)  .  GE  TCHECK )  GO  TO  400 

0076 

CTWA  =  < CVPPM ( INDEX )  *  TWORK)  /  480. 

0077 

WRITE (6,  11)  CVPPM ( I NDEX ) ,  CTWA 

0078 

IF  (CTWA  .  LT.  TLVTWA)  GO  TO  300 

0079 

WRITE<6, 12)  WHICH ( I ND ) 

0080 

GO  TO  600 

0081 

300 

CONTINUE 

0082 

WR I TE (6. 13) 

0083 

GO  TO  600 

0084 

400 

CONTINUE 

0085 

WRITE (6,2)  WHICH ( I ND ) 

0086 

WRITE (6,  3)  ( TIME ( I  SAVE ( U>  ), CVPPM ( ISAVE ( J ) >, J=l. KT ) 

0087 

WR I TE (6,4)  CVPPM  < I NDEX ) 

0088 

WR I TE ( 6,  5 )  WHICH ( I ND ) ,  WHICH(IND) 

0089 

600 

CONTINUE 

0090 

RETURN 

0091 

END 
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SUBROUTINE  QSF <H> 


NDIM) 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  PURPOSE 

C  TO  COMPUTE  THE  VECTOR  OF  INTEGRAL  VALUES  FOR  A  GIVEN 

C  EQUIDISTANT  TABLE  OF  FUNCTION  VALUES. 

C 

C  DESCRIPTION  OF  PARAMETERS 

C  H  -  THE  INCREMENT  OF  ARGUMENT  VALUES. 

C  Y  -  THE  INPUT  VECTOR  OF  FUNCTION  VALUES 

C  2  -  THE  RESULTING  VECTOR  OF  INTEGRAL  VALUES  Z 

C  MAY  BE  IDENTICAL  WITH  Y. 

C  NDIM  -  THE  DIMENSION  OF  VECTORS  Y  AND  Z. 

C 

C  REMARKS 

C  NO  ACTION  IN  CASE  NDIM  LESS  THAN  3. 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  NONE 

C 

C  METHOD 

C  BEGINNING  WITH  Z<1>  *  0.  EVALUATION  OF  VECTOR  Z  IS  DONE  BY 

C  MEANS  OF  SIMPSON'S  RULE  TOGETHER  WITH  NEWTONS  3/8  RULE  OR  A 

C  COMBINATION  OF  THESE  TWO  RULES.  TRUNCATION  ERROR  IS  OF 

C  ORDER  H**5  (I.E  FOURTH  ORDER  METHOD).  ONLY  IN  CASE  NDIM=3 

C  TRUNCATION  ERROR  OF  ZC2)  IS  OF  ORDER  H**4. 

C  FOR  REFERENCE.  SEE 

C  <1>  F. 8  HILDEBRANK,  INTRODUCTION  TO  NUMBERICAL  ANALYSIS, 

C  MCGRAW-HILtf,  NEW  YORK/TORONTO/LONDON,  1956,  PP.  71-76 

C  <2)  R.  ZURHUEHL,  PRAKTISCHE  MATEMATIK  FUER  INGENIEURE  UND 

C  PHYSIKER,  SPRINGER,  BERL I N/GOETT I NCEN/HE I DELBERG ,  1963, 

C  PP.  214-221. 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

DIMENSION  Y ( 1 ) ,  Z<1> 

C 

HT  *  .  3333333  *  H 
IF  (NDIM-5)  7,  8,  1 


NDIM  IS  GREATER  THAN  5.  PREPARATIONS  OF  INTEGRATION  LOOP 


0005 

1 

SUM1 

S 

Y  ( 2 ) 

+  Y  <  2 ) 

0006 

SUM1 

s 

SUM1 

+  SUM! 

0007 

SUM1 

SB 

HT  * 

<Y(  1  ) 

0008 

AUX  1 

SB 

Y  <  4 ) 

+  Y  (  4 ) 

0009 

AUX  1 

S 

AUX  1 

+  AUX  1 

0010 

AUX  1 

* 

SUM1 

+  HT  * 

0011 

AUX2 

s 

HT*<  Y< 1 )  + 

0012 

SUM2 

* 

Y  <  5 ) 

+  Y  <  5 ) 

0013 

SUM2 

• 

SUM2 

+  SUM2 

0014 

SUM2 

* 

AUX2 

-  HT  * 

0015 

Z  <  1  ) 

B 

0. 

0016 

AUX 

E 

Y  ( 3 ) 

+  Y  <  3 ) 

+  Y  ( 3 )  ) 


<  Y  ( 3 )  + 

3.  875  * 


AUX 1  +  Y  (  5 )  ) 
( Y<2)+Y  <  5) )  + 


+  Y  <  6 )  ) 


625*  <  Y  <  3  >  +Y  <  4  >  >  +Y  <  6  >  ) 
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nr\~A  ~  •- _ on 


D  r,  . 


on 


0017 

0018 

0019 

0020 

0021 

c 

c 

c 

0022  2 
0023 
0024 
0025 
0026 
0027 
0028 
0029 

0030  3 

0031 
0032 
0033 

0034  4 

0035  5 

0036 
0037 

003B  6 

0039 

0040 

C 

C 

C 

0041  7 

C 
C 
C 

0042  8 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051  9 

0052 

0053 

0054  10 

0055 

0056 

C 

C 

C 

0057  1 1 

0058 

0059 


AUX  *  AUX  +  AUX 

Z (2)  =  SUM2  -  HT  *  ( Y < 2 )  *  AUX  +  Y < 4 ) ) 

Z  <  3 )  -  SUM1 
Z ( 4 )  «  SUM2 
IF  (NDIM-6)  5,  5.  2 

INTEGRATION  LOOP 

DO  4  I  =  7,  NDIM,  2 
SUM1  =  AUX 1 
SUM2  =  AUX2 
AUX 1  =  Y( 1-1 )  +  Y ( 1-1 ) 

AUX 1  *  AUX 1  +  AUX 1 

AUX  1  «=  SUM1  +  HT  *  < Y <  1-2 )  +  AUX1  +  Y<  I  )  ) 

Z ( 1-2)  *  SUM  1 

IF  (  I— NDIM)  3,.  6,  6 

AUX2  «  Y(I)  +  Yd) 

AUX2  =  AUX2  +  AUX2 

AUX2  «>  SUM2  +  HT  *  <Y<I-1)  +  AUX2  +  Y(I+1)> 

Z<I-1)  «  SUM2 
CONTINUE 
Z(NDIM-l)  =  AUX 1 
Z < NDIM)  *  AUX2 
RETURN 

Z(NDIM-l)  *=  SUM2 
Z ( NDIM )  *  AUX 1 
RETURN 

END  OF  INTEGRATION  LOOP 
IF  (NDIM-3)  12,  11,  8 

NDIM  IS  EQUAL  TO  4  OR  5 

SUM2  =  1.125  *  HT  *  <  Y  <  1  >  +  Y  (2 )  +Y  ( 2  >  +Y  (2 )  +Y  (  3  >  +Y  (  3  )  +Y  (  3 )  +Y  (  4  )  ) 
SUM1  =  Y  <  2 )  +  Y<2) 

SUM1  «=  SUM1  +  SUM1 

SUM1  =  HT  *  ( Y < 1 )  +  SUM1  +  Y<3)> 

Z(l)  =  O. 

AUX  1  «■  Y  ( 3 )  +  Y<3) 

AUX 1  =  AUX 1  +  AUX 1 

Z<2)  *  SUM2  -  HT  *  <Y<2>  +  AUX1  +  Y<4>> 

IF  (NDIM— 5)  10.  9,  9 
AUX 1  =  Y ( 4  >  +  Y ( 4 ) 

AUX 1  »  AUX 1  +  AUX 1 

Z ( 5)  =  SUM1  +  HT  *  (Y<3)  +  AUX1  +  Y<5>) 

Z (3)  =  SUM1 
Z  <  4 )  «  SUM2 
RETURN 

NDIM  IS  EQUAL  TO  3 

SUM1  =  HT*  <1.25  *  Y<1)  +  Y(2>  +  Y(2)  -  ,  25  *  Y(3>> 

SUM2  *  Y(2)  +  Y<2) 

SUM2  “  SUM2  +  SUM2 
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0001  PROGRAM  TANHP 

0002  REAL  NU,  MDOTB,  M.  MDOTHL.  MDOTHW, MDOTC.  MDOTXY,  MDOTZY. MDOTXZ, L. K1 

0003  REAL  MAIR 

0004  INTEOER  TESTNO 

0005  DIMENSION  MDOTXY ( 275 >. MDOTZY (275> . TAUXY (275 >. TAUZY (275) .  MD0TC(275 > 

*,  MDOTHL < 275 >.  MDOTHW< 275). TIME (275).  C< 275).  MDOTB( 275).  CONC ( 275) 

0006  DIMENSION  ETIME < 30 ) , ECVPPM<30> . AR ( 4 ) .  CVPPM<275> .  CEXP<275> 

0007  DOUBLE  PRECISION  I ILX < 5 > . I ILY< 5) . IED< 13) 

0008  DATA  PARAM  /O.  33107/ 

0009  DATA  MAIR  /2B  97/ 

0010  OPEN  (UNIT-1,  NAME-'SYO  TANKPI.  DAT', TYPE- 'OLD' > 

0011  OPEN  (UNIT-2,  NAME-'SYO:  TANKPO.  DAT', TYPE-'NEW' > 

0012  OPEN  (UNIT-3. NAME-'SYO: SCRATCH.  DAT', TYPE-'NEW') 

C  PROORAM  TANKP  CALCULATES  THE  CONCENTRATION-TIKE  HISTORY  OF  CHEMICAL 

C  VAPOR  DISCHARGED  FROM  A  TANK  DURING  DILUTION  VENTILATION  IN  THE 

C  PRESENCE  OF  EVAPORATION  OF  PURE  CHEMICAL  RESIDUES  FROM  THE  TANK 

C  WALLS  AND  FLOOR. 

C  INPUT  QUANTITIES  AND  DIMENSIONS 
C  CO  -  INITIAL  CONCENTRATION,  PPM 

C  L,  U,  H  -LENGTH.  WIDTH  AND  HEIOHT  OF  TANK  IN  METERS  IN  THE  X,  Y  AND  Z 

C  DIRECTIONS,  RESPECTIVELY 

C  Q  •  DILUTION  FLOW  RATE. M3/MIN 

C  M  -  LIQUID  MOLECULAR  WEIOHT. OM/MOLE 

C  P  -  MEAN  TANK  PRESSURE.  MM  HG 
C  TB  -  LIQUID  BOILING  TEMPERATURE.  K 

C  0  -  LIQUID  SURFACE  TENSION,  DY^S/CM  AT  20C 
C  DIA  -  DIAMETER  OF  BUTTERWORTH  OPENING. M 

C  R  -  UNIVERSAL  OAS  CONSTANT, ( CM3-MM  HO>/(MOLE-K) 

C  A, B, CEE  -  CURVE  FIT  COEFFICIENTS  FOR  LIQUID  VAPOR  PRESSURE  AS  A 

C  FUNCTION  OF  TEMP.  L0010(PV)»A-B/ (CEE+T) ,  PV  IN  MM  HG,  T  IN 

C  DEC  C 

C  ALPHA, BETA, GAMMA  -  CURVE  FIT  COEFFICIENTS  ON  WALL  TEMP  FOR  WALLS 

C  PARALLEL  TO  X-Y  PLANE 

C  TWALL  ( K  )  — ALPHA+BETA  ( Y )  -*-PAMM  ( Y2  > ,  Y  IN  M 

C  ZETA. ETA, THETA  «  CURVE  FIT  COEFFICIENTS  ON  WALL  TEMP  FOR  WALLS 

C  PARALLEL  TO  Y-Z  PLANE 

C  TWALL ( K ) -ZETA+ETA  <  Y ) + THETA <  Y2  > .  Y  IN  M 

C  TFILM  -  LIQUID  CHEMICAL  FILM  THICKNESS  ON  VERTICAL  WALLS,  CM 

C  TPOQL  -  THIC:  NESS  OF  LIQUID  LAYER  ON  TANK  BOTTOM,  CM 

C  TEMPERATURE  AT  TANK  BOTTOM  MUST  BE  EQUAL  FOR  BOTH  TWALL  DISTRIB 
C  C1.C2  -  CURVE  FIT  COEFFICIENTS  ON  LIQUID  DENSITY  AS  A  FUNCTION  OF 

C  OF  TEMP.  RH0FILM(LB/FT3)-C1+C2(T),  T(F > 

C  DELTA.  EPS ILN,  PHI  -  CURVE  FIT  COEFFICIENTS  FOR  KINEMATIC  VISCOSITY 

C  OF  AIR ( FT2/SEC )  AS  A  FUNCTION  OF  TEMP(F)  AT  ATMOS  PRESS 

C  NU  -  DELTA  +EPSILN< T > +PHI ( T2) 

C  TI  —  INITIAL  TIME,  MIN. 

C  DTI ME  -TIME  INCREMENT  BETWEEN  SUCCESSIVE  CONCENTRATION  CALCS, MIN 

C  STEP  -  NUMBER  OF  SUBDIVISIONS  OF  H,  DY-H/STEP 
C  NSTEP  -  INTEOER  VALUE  OF  STEP 
C  TO AS  *  GAS  DISCHARGE  TEMPERATURE ( K > 

C  NUMEXP  -  NUMBER  OF  EXPERIMENTAL  POINTS 

C  ETIME ( I )  -  TIME  AT  WHICH  EXPERIMENTAL  CONCENTRATION  OF 

C  CHECMIAL  VAPOR,  ECVPPM(I),  WAS  TAKEN,  MIN 

C  ECVPPM(I)  -  EXPERIMENTAL  CONCENTRATION  OF  CHEMICAL  VAPOR 

C  TM  -  DURATION  OF  TIME  ELAPSED  BEFORE  MAN  ENTERS 
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0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 


C 

TANK,  MIN 

C 

TWORK 

m 

LENOTH  OF  TlflE  MAN  IS  IN  TANK,  IN  MIN 

c 

I TWORK 

m 

1. 

BRIEF  VISUAL  INSPECTION  AND  ODOR  DETERMINATION 

c 

WITH  CAROO  SURVEYOR. 

C 

TWORK  «  1  -  2  MIN 

c 

2. 

INSPECT  TANK  COATINGS  AND  MEASURE  THICKNESS 

c 

TWORK  «  15-45  MIN. 

C 

3. 

HAND  MUCK 1 NO  OF  RESIDUE  WITH  TOWELS  AND  RAGS 

C 

(RELATIVELY  DIRTY  TANK) 

c 

TWORK  ■>  90  MIN. 

c 

4. 

SWEEP  DEBRIS  FROM  TANK  BOTTOM  AND  WIPE  PUMP 

c 

SUMP  (RELATIVELY  CLEAN  TANK) 

c 

TWORK  =  40  MIN. 

c 

5. 

USER  SPECIFIES  TWORK 

C 

IBLOW 

m 

Y 

:  BLOWER  ON  WHILE  MAN  IN  TANK 

C 

N 

BLOWER  OFF  WHILE  MAN  IN  TANK 

c 

R2  -  JET 

DEFL. 

+ 

WALL  JET  DIST.  , M 

c 

TLVTWA  ■ 

TIME 

WEIGHTED  AVERAGE  B-HOUR  EXPOSURE  LIMIT,  PPM 

c 

TLVSTL  ■ 

SHORT 

TERM  EXPOSURE  LIMIT.  PPM 

c 

TLVC  • 

CEILINC 

EXPOSURE  LIMIT 

C 

C  INTERNAL  COMMENTS 

C  MDOTXY < I )  «  LOCAL  MASS  FLUX  ON  SURFACES  PARALLEL  TO  X-Y 
C  PLANE.  CM/CM2-SEC 

C  MDOTZYU)  -  LOCAL  MASS  FLUX  ON  SURFACES  PARALLEL  TO  Y-Z 

C  PLANE.  CM/CM2-SEC 

C  MDOTXZ  »  TOTAL  MASS  FLUX  ON  TANK  BOTTOM,  CM/CM2-SEC 

C  TAUXY(I>*  LOCAL  TIME  TO  EVAPORATE  TFILM  ON  SURFACES  PARALLEL 

C  TO  X-Y  PLANE.  SEC 

C  TAUZY < I )  «  LOCAL  TIME  TO  EVAPORATE  TFILM  ON  SURFACES  PARALLEL 

C  TAUB  *  TIME  TO  EVAPORATE  TPOOL  ON  TANK  BOTTOM, SEC 
C  TO  Y-Z  PLANE.  SEC 

C  PARAM  -  OPTIMIZATION  PARAMETER  FOR  CONVECTIVE  EVAPORATION  VELOCITY, 

C  U  (DIMENSIONLESS) 

C 

READ  < 1 . 5000 ) TESTNO 

READ(1,  1010 )L.  W,  H,  M,  P,  TB,  C, R. STEP, A, B. CEE, Cl, C2 
READd.  1010)DELTA.  EPSILN,  PHI 
READd.  1005  INSTEP 
10  CONTINUE 

20  READd.  1010>C0,  G,  TFILM,  TPOOL,  TGAS.  DIA,  R2 

READd,  1010) ALPHA,  BETA,  GAMMA 
READd.  1010 )  ZETA,  ETA.  THETA 
READd.  1006  )NUMEXP 
DO  1  I-l.NUMEXP 

1  READd,  1007)ETIME <  I )  >  ECVPPM<  I ) 

1006  FORMAT < 1 X,  15) 

1007  FORMAT (IX,  2F12  4 ) 

READd.  2)  TI,  TM,  TWORK.  DTI  ME 
2  FORMAT (5E 12  5) 

READd,  2)  TLVC,  TLVTWA,  TLVSTL 
READd.  13)  I  TWORK,  IBLOW 
13  FORMAT ( 15, A2> 

SAVM-M 


C 
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0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 


0044 

0045 

0046 

0047 

0048 


0049 

0050 

0051 

0052 

0033 


15 


16 


230 


17 


235 


PI-3  1415927 

UO-Q/( <60.  *PI*0IA**2.  >/4.  ) 

XHC  -  CO  /  1000000. 

RHO  -  (XHC  *  M  (1  -  XHC)  *  HAIR)  /  HAIR 
FROUDE  -  <U0  *  UO)  /  <9  8  *  H  *  (RHO  -  1 >  > 

WRITE <5<  15)  FROUDE 
WRITE <2,  15)  FROUDE 

FORMAT < //. IX,  'DENSIMETRIC  FROUDE  NO.  -  '.  F8.  3) 

IF  (FROUDE  .  OT.  50.  >  00  TO  230 
WR ITE ( 5> 16) 

WRITE (2/  16) 

FORMAT <  /  /. 5X.  'DEN8METR IC  FROUDE  NUMBER  AT  THE  BEGINNING ' , / 

1  3X,  'OF  VENTILATION  IS  LESS  THAN  50  THE  BLOWER  MAY  NOT',/ 

2  5X, 'HAVE  SUFFICIENT  CAPACITY  FOR  THE  VENTILATING  JET'./ 

3  5X, 'TO  PENETRATE  THE  VAPOR  SPACE  AND  IMPINGE  ON  THE  '.  / 

4  3X, 'TANK  BOTTOM.  THE  VAPOR  CONCENTRATION  IN  THE  ULLAGE',/ 

5  5X, 'SPACE  MAY  NOT  BE  WELL-MIXED  AND  HOMOGENEOUS  THROUGH', 

6  'OUT '•  /3X»  'THE  DURATION  OF  CAS  FREEING  SHORT-CIRCUIT', 

7  '  ING '« /5X,  'OF  THE  BLOWER  JET  SHOULD  BE  ANTICIPATED.  THE', 

8  '  MODEL  DOES  N0T',/5X, 'INCLUDE  THIS  CONDITION  AND  WILL', 

9  '  PROCEED  WITH  THE',/5X,  'WELL-MIXED  ASSUMPTION.  '//) 

00  TO  235 

CONTINUE 
WRITE ( 5,  17) 

WRITE <2,  17) 

FORMAT  < //,  5X,  'DENSIHETRIC  FROUDE  NUMBER  AT  BEGINNING',/ 

1  5X>  'OF  VENTILATION  IS  OREATER  THAN  50.  BLOWER  CAPACITY',/ 

2  3X<  'IS  SUFFICIENT  FOR  THE  VENTILATING  JET  TO  PENETRATE',/ 

3  5X,  'THE  VAPOR  SPACE  AND  IMPINGE  ON  THE  TANK  BOTTOM  ',  / 

4  5X.  'COMPLETE  JET  PENETRATION  AND  IMPINGEMENT  ENSURES',/ 

5  5X, 'THAT  THE  VAPOR  CONCENTRATION  IN  THE  ULLAGE  SPACE',/ 

6  5X, 'IS  HOMOOENOUS  AND  THAT  THE  WELL-MIXED  MODELING',/ 

7  5X,  'ASSUMPTION  IS  VALID.  FOR  FURTHER  DETAILS,  CONSULT'./ 

8  5X.  'REFERENCE  4  OF  THE  CONTRACT  FINAL  REPORT  ',//> 

CONTINUE 

CON-1.  4*U0*DIA**1,  12 
Rl-O.  1 5*H 

K1-C0N/R1**( 1.  12+1:  ) 

U— < <K1*R1**2.  ) / < 2,  *R2 >+CON* ( RZ** <  — 1 .  12) >/(l.  -1.  12)* 


0034 

0055 

0036 

0057 

0058 

0039 

0060 


6012 


1 < 1.  -<R1/R2>**<1.  -1.  12) ) )*100.  *PARAM 
V-L*W*H 

WR I TE  <  2, 6000 ) TESTNO 
WRITE  <2,  1000) 

WRITE <2, 6001) 

WRITE<2,  1 01 5 ) L,  W,  H,  V,  CO,  Q,  P,  TB,  G,  U,  M.  TFILM,  TPOOL 
WR I TE ( 2 , 60 1 2 ) TLVC ,  TLVTWA.  TLVSTL 

FORMAT < 6X,  4HTL VC,  6X,  30HTHRESH0LD  LIMIT  VALUE.  CEILING, 5X.  3HPPM. 

1  7X. El 5.  3,  /, 6X.  6HTLVTWA, 4X,  22HTHRESH0LD  LIMIT  VALUE, , /, 

2  16X.  21HTIME-WEIQHTED  AVERAOE.  14X. 3HPPM.  7X, E15.  5, /, 6X, 

3  6HTLVSTL,  4X,  22HTHR ESHOLD  LIMIT  VALUE.  . /.  16X. 

4  25H8H0RT-TERM  EXPOSURE  LIMIT,  10X,  3HPPM,  7X.  E15.  5) 


0061 

IF 

( ITWORK 

.  EQ. 

1 ) 

WRITE (2, 8) 

TWORK 

0062 

IF 

( ITWORK 

EQ. 

2) 

WRITE(2.  9) 

TWORK 

0063 

IF 

< ITWORK 

EQ 

3) 

WR ITE ( 2,  3) 

TWORK 

0064 

IF 

( ITWORK 

.  EQ. 

4) 

WRITE (2. 4) 

TWORK 

A-A3 
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0065 

0066 

0067 

0066 

0069 


0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 


0078 

0079 

0060 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 


0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 


IF  < ITWORK  .  EQ  5)  WRITE(2. 5)  TWORK 

8  FORMAT (/.  6X,  42HTW0RK1  -  BRIEF  VISUAL  INSPECTION  AND  ODOR  . 

1  13HDETERMINATI0N. /, IX. 30HWITH  CARGO  SURVEVoR.  TW0RK1  -  . 

2  F10.  4,  5H  MIN.  ) 

9  FORMAT ( /.  6X.  43HTU0RH2  -  INSPECT  TANK  CDATINOS  AND  MEASURE  , 

1  10HTHICKNESS  , /, 6X, 9HTW0RK2  -  ,  FlO.  4,  5H  MIN.  > 

3  FORMAT ( /. 6X. 42HTW0RK3  -  HAND  MUCKING  RESIDUE  WITH  TOWELS  , /.  IX, 

2  9HAND  RAGS, /. 6X, 

2  34H< RELATIVELY  DIRTY  TANK),  TW0RK3  *  . FlO.  4, 5H  MIN  ) 

4  FORMAT ( /, 6X. 48HTW0RK4  -  SWEEP  DEBRIS  FROM  TANK  BOTTOM  AND  WIPE  , 

1  9HPUMP  SUMP. 

2  /. 6X. 34H( RELATIVELY  CLEAN  TANK),  TW0RK4  =  ,  FlO  4.5H  MIN.  ) 

5  FORMAT  < /, 6X, 34HTW0RK5  -  USER  SPECIFIES,  TW0RK5  *  , FlO.  4, 5H  MIN  ) 
IF  ( IBLOW  EQ.  1HN)  GO  TO  248 

WRITE <2,  6) 

6  FORMAT (/, 6X, 31HBL0WER  IS  ON  DURING  MAN'S  ENTRY,/) 

GO  TO  249 

248  WRITE (2,7) 

7  FORMAT  <  /  .  6X.  32HBL0WER  IS  OFF  DURING  MAN'S  ENTRY,/) 

249  CONTINUE 
C 

C  CALCULATION  OF  MDOTXZ  AND  TAUB  (EVAP.  FLUX  AND  EVAP.  TIME  ON  TANK 

C  BOTTOM) 

C 

TO«ALPHA+BETA*H+GAMMA* ( H**2 ) 

T *1. B*T0-460.  0 

TC-TO-273  15 

PV-10  **  (  A-B / <  CEE+TC ) ) 

D-0. 425/P*SQRT<TGAS**3/<M*TB/C> ) 

NU-DELTA+EPS ILN*T+PHI « ( T**2 ) 

NU=NU*<2.  54*12  >**2 
SC-NU/D 

POWER *0  625* ( SC**0.  3) 

FREC=0  2 1 7*  < SC** ( -0  9 ) ) * ( SC*U ) **POWER 
MDOTXZ=M*D*PV*FREC/ <  R*TGAS > 

RHOF* <  C 1 +C2*T ) *454.  0/ <  < 12  *2.  54)**3) 

TAUB-TPOOL*RHOF/MDOTXZ 

WRITE (2,  1020) TO,  PV,  D, NU,  SC, RHOF,  MDOTXZ,  TAUB,  FREC 
C 

C  CALCULATION  OF  MDOTX Y( 1 ) ,  MDOTZY < I > , TAUXY ( I )  AND  TAUZY(I)  VECTORS 

C  (FLUX  AND  TIME  QUANTITIES  FOR  TANK  WALLS) 

C 

DY-H/STEP 
1*1 
Y-0  0 

WRITE (2, 1022) 

WRITE (2, 1024) 

LINEKT  -  3 

100  TXY-ALPHA+BETA*Y+OAMMA*  <  Y**2 ) 

T-l,  B*TXY— 460. 

TC-TXY-273  15 

PV*10.  ** < A— B/ < CEE+TC ) ) 

D»0  425/P*SQRT<T0AS**3/(M*TB/0) ) 

NU-DELTA+EPS ILN*T*PHI*  < T**2  > 

NU»NU*(12  *2  54 > **2 


A-44 
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0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

9131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 


0151 

0152 

0153 


SC-NU/D 

POWER-0.  625*(BC**0.  3) 

FREC-O.  217*(SC**<-0.  9) >*<BC*U)**POWER 
MDOTXY< I )-D*M*PV*FREC/(R*TOAS> 

RH0F-(C1+C2*T>*454.  /<  < 12.  *2; 54)**3> 

TAUXY( I )«TF1LM*RH0F/MD0TXY( 1 ) 

WR ITE  <  2.  1 026  >  Y,  TX Y. MDOTXY (  X  t , TAUXY ( I > , D. NU.  PV,  BC ,  FREC 
LINEKT  «  LINEKT  +  1 
IF  (LINEKT  .  LT.  56)  ©0  TO  104 
WRITE (2/ 1022) 

WRITE<2> 1024) 

LINEKT  -  3 
104  CONTINUE 
I-I  +  l 
Y-Y+DY 

IF ( Y— H) 100i  100,  105 
C 

105  J-l 
Y— 0.  0 

WRITE (2, 1028) 

WRITE (2,  1030) 

LINEKT  -  3 

110  TZY-ZETA+ETA*Y+THETA*(Y**2> 

T«l.  8*TZY-460. 

TC-TZY-273.  15 

PV-10  **  <  A-B / <  CEE+TC  > ) 

D-0  425/P*SQRT(T©AS**3/(M*TB/C) > 

NU-DELTA+EPSILN*T+PHI*( T**2  > 

NU-NU*(12.  #2.  54 ) #*2 
SC-NU/D 

POWER-O  625*<SC**0.  3) 

FREC-O.  217#<SC**<-0.  9) )*<SC*U)**PDWER 
MDOTZY <  J ) — D*M*P V*FREC/ ( R*TOAS ) 

RHOF -(Cl ♦C2*T  >*454.  /  ((12  *2  54)**3) 

TAUZY ( U ) - TF I LM*R  HOF /MDOT Z  Y ( U ) 

WRITE <2.  1026) Y, TZY, MDOTZY ( J>, TAUZY ( J ) ,  D,  NU,  PV,  SC,  FREC 
LINEKT  -  LINEKT  t-  1 
IF  (LINEKT  .  LT.  56)  00  TO  114 
WRITE (2, 1028) 

WRITE (2,  1030) 

LINEKT  -  3 
114  CONTINUE 
J-U+l 
Y-Y+DY 

IF ( Y— H) 110,  110,  115 
115  WRITE (2, 1060) 

LINEKT  -  4 
C 

C  CALCULATION  OF  LOCAL  EVAPORATION  FLUX  RATE  AND  EVAPORATION 

C  TIMES  IS  COMPLETE.  BEOXN  INTEGRATION  OF  LOCAL  EVAPORATION 

C  FLUXES  TO  OBTAIN  TOTAL  EVAPORATION  RATE  -  TIME  HISTORY 
C 

117  K-l 

TIME<K)-TI 
TMAX  -  TM  +  TWORK 


1 
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0154 

0155 

0156 

0157 

0156 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 


0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

019B 

0199 

0200 

0201 

0202 


IF  ( I BLOW  EG  1HN)  TMAX  “  TM 
NPOINT-NSTEP+1 
120  DO  125  I*1,NP0INT 

IF (TIME ( K ) #60.  0.  GT. TAUXY < I > > MDOTXYI I )«0  0 
I F ( T I ME < K ) *60 .  0  GT.  TAUZY< I > )MDOTZY( I )-0.  0 
125  CONTINUE 

IF  < TIME  < K )  *60.  0  GT.  TAUB >MD0TXZ=0.  0 
MDO^B  K )  “MDOTXZ*L*W* 1.  E04 
ARE*i*0.  0 
DO  :30  1*1,  NSTEP 

AREA*AREA+DY* ( MDOTXY < I > +MDOTXY < 1+1 >  >  /2  0 
130  CONTINUE 

MDOTHL  <  K ) =AREA*L*1  E04 

AREA=0  0 

DO  140  I-l.NSTEP 

AREA*AREA+DY*(MDOTZY< I )+MDOTZY( 1  +  1 >  )/2  0 
140  CONTINUE 

MDOTHW  <  K ) *AR£A*W* 1 .  E04 

MDOTG ( K ) =MDOTB ( K ) +2 .  * ( MDOTHL  <  K ) fMDOTHW <  K  >  > 

K-K+l 

TIME <  K ) “TIME  <  K-l l+DTIME 
IF (TIME (K ) -TMAX ) 120,  120,  150 
C 

C  INTEGRATION  OF  TOTAL  EVAPORATIVE  FLUXES  IS  COMPLETE. 

C  RUNGE-KUTTA  INTEGRATION  OF  CONCENTRATION  DE 

C 

150  K=1 

LPRINT-1 
JCOUNT* 1 
CVPPM  C 1 )*C0 

C0*C0* < P/760  >*<298  1 5/TGAS > * < M/24  45) 

C(K)=CO 
155  Y=C<K) 

DOTMG=MDOTG<K) 

F=  < 60000  *DOTMG/V>-Q*Y/V 
X  =  T I ME  <  K ) 

NT=0 

160  CONTINUE 

STUFF-RKLDEQ< 1,  Y,  F,  X, DTIME,  NT) 

CONC  <  K ) =Y 

DOTMG*MDOTC < K )  —  < < TIME  < K  >-X  >/<  TIME < K  > -TIME<K«-1 >  > )  ■*  < MOOT G < K ) -MDOT G < K 
*+l  )  ) 

F*< 60000  *DOTMG/V>  •‘Q*CONC<K>/V 
IF < STUFF.  NE.  2  0>C0  TO  160 
K*K+1 

C  <  K ) *CONC  < K-l > 

CRATIO"C  <  K ) /CO 
M*SAVM 

CONC <K) -CONC <K-1 >*<760.  /P > * < TGAS/298  15>*24.  45/M 
CVPPM<  K  >*CONC  < K  > 

COR*G*TIME(K)/V 
IF(JC0UNT-LPRINT>170, 165, 165 

165  WRITE (2,  1070 ) TIME  <H  > ,  CONC ( K > , CRATIO,  COR,  MDOTG < K >,  MDOTHL < K > . 

♦MDOTHW  <  K  > ,  MDOTB <  K  > 

LINEKT  ■  LINEKT  +  1 


A-46 
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P  DP-1 
TANKP 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 


0216 


0217 

0218 


0219 

0220 

0221 


0222 


FORTRAN-77  V4. 1-2  10: 10:27 

FTNi  56  /F77/TR: ALL/WR 

IF  (LINEKT  .  LT.  56)  00  TO  166 
WRITE (2< 1060) 

LINEKT  -  4 
166  CONTINUE 
JCOUNT-1 
00  TO  175 
170  UCOUNT-2 

175  IF(TIME(K)-TMAX> 155,  2000,  2000 
6001  FORMAT (27X.  16H0NE-TIME  OUTPUTS. /. 5X. 8HVARIABLE. BX. 

1  1 1HDESCR IPTION.  20X. SHUN ITS.  4X. 6HRESULT. //> 

1000  FORMAT <80A1) 

1005  FORMAT < 14) 

1010  FORMAT (6E12. 6) 

1015  FORMAT ( 6X, 1HL. 9X, 

1  11HTANK  LENGTH. 24X,  1HM.  9X.  F6.  1. 

2  /. 6X.  1HW. 9X> 10HTANK  WIDTH.  25X,  1HM.  9X.  F6.  1 . 

3  /. 6X. 1HH. 9X, 11HTANK  HEIOHT, 24X. 1HM, 9X. F6. 1 . 

4  /.  6X,  1HV.  9X.  11HTANK  VOLUME.  24X.  1HM,  7X.  FB.  1 . 

5  /. 6X, 2HC0. BX. 21HINITIAL  CONCENTRATION.  14X.  5HMG/M3. 2X,  F9.  1 , 

6  /. 6X.  1HQ,  9X. 16HVENTILATI0N  RATE.  19X.  6HM3/MIN.  4X.  F6.  1. 

7  /. 6X.  1HP.  9X.  13HTANK  PRESSURE.  22X.  5HMM  HG.  5X.  F6  1. 

8  /.  6X.  2HTB,  8X.  2OHLI0UID  BOILING  POINT.  1 5X.  1HK, 9X, F6.  1 , 

9  /6X. 1HG. 9X. 22HLIQUID  SURFACE  TENSION.  13X,  BHDYNES/CM.  2X.  F6.  1 

1  .  /,  6X<  1HU,  9X,  17HWALL  AIR  VELOCITY.  18X.  6HCM/SEC,  4X,  F6  1, 

2  /6X.  1HM,  9X.  23HLIQUID  MOLECULAR  WEIGHT.  12X,  7HGM/M0LE,  3X,  F7 

3  /.  6X,  5HTFILM.  5X,  23HFILM  THICKNESS  ON  WALLS.  12X. 2HCM. 9X, F6 

4  /6X,  5HTP00L.  5X,  24HFILM  THICKNESS  ON  BOTTOM. 1 IX. 2HCM. 9X, F6 

5  /) 

1020  FORMAT  < 1H0.  9X»  22HSUMMARY  OF  TANK  BOTTOM/ 

1  3X. 8HQUANTITY,  34 X,  6HRESULT.  /. 

*  1H0,  2X.  20HFL00R  TEMPERATURE ( K ) ,  21X.  F6.  1/ 

*  3X.  21HVAP0R  PRESSURE  (MM  HO.  20X,  F6.  1/ 

*  3X.  30HDIFFUSI0N  COEFFICIENT (CM2/SEC > .  10X.  F7.  4/ 

*  3X.  35HKINEMATIC  VISCOSITY  OF  AIR ( CM2/SEC ) . 2X, El 0  4/ 

*  3X,  14HSCHMIDT  NUMBER. 23X. F10.  4/ 

*  3X ,  12HRH0F ( 0M/CM3  > ,  29X,  F6.  3/ 

*  3X<  18HMD0TXZ (0M/CM2-SEC ) ,  19X. E10.  4/ 

*  3X, 9HTAUB (SEC )  i  30X.  FB.  1/ 

*  3X,  UH1/F(CM**-1  >.  30X.  F6.  3) 

1022  FORMAT < 1 HI.  57X,  19HSUMMARY  OF  X-Y  WALL) 

1024  FORMAT ( 1H0,  4X,  4HY(M) .  9X,  7HTEMP < K ) .  5X,  14HMD0TXY< C/C2-S) , 3X,  1 1H  TAU 

*  XY(SEC),  4X.  10HD(CM2/SEC),  4X.  1 1HNU(CM2/SEC ) ,  SX.  9HPV(MM  HO.  8X,  2HSC, 
*8X.  UH1/F(CM**~1  )  ) 

1026  FORMAT  <4X,  F6.  2,  9X.  F6.  1.  7X.  Ell.  4.  6X,  F8.  1,  5X.  F8.  5.  7X.  F7.  4.  8X,  FB.  3.  8X 
*.  F6.  3.  9X.  FB.  4) 

1028  FORMAT< 1H1, 57X,  19HSUMMARY  OF  Y-Z  WALL) 

1030  FORMAT ( 1H0.  4X.  4HY(M).  9X,  7HTEMP <K ) ,  5X,  1 4HMD0TZY(C/C2-S) ,  3X,  1 1H  TAU 
*ZY  <  SEC  > .  4X.  10HD  ( CM2/SEC  ) .  5X.  1 1 HNU  ( CM2/SEC  ) .  5X,  9HPV(MM  HO,  8X.  2HSC, 
*8X. UH1/F(CM**-1 ) ) 

1060  FORMATdHl.  36X,  47HTANK  CONCENTRATION  AND  EVAPORATION  RATE  HISTORY/ 

*  1H0,  2X,  9HTIME(MIN), 5X.  12HC0NCENT(PPM).  7X.  4HC/C0.  11X,  4HQT/V. 

*  6X.  13HMD0TG ( OM/SEC  > . 4X. 14HMD0THL(0M/SEC > .  4X.  14HMDOTHW(OM/SE 
*C>. 4X.  13HMD0TB (OM/SEC >  > 

1070  FORMAT (4X.  F6  2.  9X.  FB.  0,  7X,  F6.  3.  10X.  F6  2.  7X.  F9.  3.  BX.  F9.  3,  9X,  F9  3,  9X 

*  .  F9.  3) 


0223 


iu  nj  r  J 
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0224 

0225 

0226 

0227 


0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 


5000  FORMAT  < 1 5 ) 

6000  FORMAT (23X<  '***##  TEST  NO.  ',13.'  *****'//> 

2000  CONTINUE 

CALL  BLOW(  I  BLOW,  TMAX.  TM,  TWORK.  CVPPM,  TLVC.  TLVSTL’.  TLVTWA, 
1  DTIME,  TIME,  CEXP.  TI) 

C 

C  WRITE  DATA  TO  UNIT  3  FOR  PLOTTING 

C 

III-K-1 

III  -  (TMAX  -  TI >  /  DTIME  1 

WRITE (3,#)  III.  NUMEXP,  TESTNO,  TLVC.  TLVTWA.  TLVSTL 
DO  800  I  -  1,  III 

WRITE < 3, * )  TIME(I).  CVPPM(I) 

800  CONTINUE 

IF  (NUMEXP  EQ  0)  GO  TO  900 
DO  850  I  »  1.  NUMEXP 

WRITEO.  *>  ETIME(l),  ECVPPM(  I ) 

850  CONTINUE 
900  CONTINUE 
STOP 
END 
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0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 


FUNCTION  RKLDE<1<N<  Y.  F.  X,  H.  NT) 

C  D2  UCSD  RKLDEQ  RUNOE— KUTTA-GILL  LINEAR  DIFFERENTIAL  EQUATION  SOLVER 
C  D2  UCSD  RKLDEQ 

C  MODIFIED  MAY  1963  <0  REMOVED  FROM  CALLING  SEQUENCE) 

C  TEST  OF  ALGOL  ALGORITHM 

DIMENSION  Y<1).F<1).Q<1) 

C  REAL  X,H — INTEOER  N,  NT — COMMENT— BEOIN  INTEQER  I.J.  L-REAL  A 
NT-NT+1 

GO  TO  <1.2,  3.  4).  NT 
C  00  TO  S<NT) 

1  DO  11  J-l.N 

11  Q<  J>— 0. 

A-  5 
X-X+H/2. 

00  TO  5 

2  A*.  29289321881 
GO  TO  5 

3  A-l.  7071067812 
X-X+H/2. 

CO  TO  5 

4  DO  41  I-l.N 

41  Y  < I )*Y  < I ) ♦H*F  < I ) /6.  — Q< I > /3. 

NT-0 

RKLDEQ-2 
GO  TO  6 

5  DO  51  L-l.N 

Y  <  L ) — Y  <  L ) ♦A*  <  H*F  <  L ) — Q  <  L ) ) 

51  Q<L>»2.  *A*H*F < L )  +  < 1 .  -3. *A)*Q(L) 

RKLDEQ- 1 

6  CONTINUE 
RETURN 
END 
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SUBROUTINE  QSF <H, 


Z,  NDIM) 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  PURPOSE 

C  TO  COMPUTE  THE1 VECTOR  OF  INTEGRAL  VALUES  FOR  A  GIVEN 

C  EQUIDISTANT  TABLE  OF  FUNCTION  VALUES. 

C 

C  DESCRIPTION  OF  PARAMETERS 

C  H  -  . THE  INCREMENT  OF  ARGUMENT  VALUES. 

C  V  -  THE  INPUT  VECTOR  OF  FUNCTION  VALUES. 

C  Z  -  THE  RESULTING  VECTOR  OF  INTEGRAL  VALUES  Z 

C  MAY  BE  IDENTICAL  WITH  Y. 

C  NDIM  -  THE  DIMENSION  OF  VECTORS  Y  AND  Z. 

C 

C  REMARKS 

C  NO  ACTION  IN  CASE  NDIM  LESS  THAN  3. 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  NONE 

C 

C  METHOD 

C  BEGINNING  WITH  Z  < 1 >  =  0,  EVALUATION  OF  VECTOR  Z  IS  DONE  BY 

C  MEANS  OF  SIMPSON'S  RULE  TOGETHER  WITH  NEWTONS  3/B  RULE  OR  A 

C  COMBINATION  OF  THESE  TWO  RULES.  TRUNCATION  ERROR  IS  OF 

C  ORDER  H**5  <  I .  E.  FOURTH  ORDER  METHOD).  ONLY  IN  CASE  NDIM*=3 

C  TRUNCATION  ERROR  OF  Z<2>  IS  OF  ORDER  H**4. 

C  FOR  REFERENCE.  SEE 

C  (1)  F  B  HILDEBRANK.  INTRODUCTION  TO  NUMBERICAL  ANALYSIS. 

C  MCGRAW-HILL,  NEW  YORK/TORONTO/LONDON,  1956,  PT  71-76 

C  (2)  R  ZURHUEHL,  PRAKTISCHE  MATEMATIK  FUER  INGENIEURE  UND 

C  PHYSIKER.  SPRINGER,  BERL I N/OOETT I NGEN/HE.IDELBERG .  1963, 

C  PP  214-221 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

DIMENSION  Y  < 1  ) ,  Z<1) 

C 

HT  -  3333333  *  H 

IF  < NDIM-5 )  7,  8,  1 


NDIM  IS  GREATER  THAN 


PREPARATIONS  OF  INTEGRATION  LOOP 


Y< 2 )  ♦  Y <2 ) 

SUM1  +  SUM1 

HT  *  <  Y  < 1 )  +  SUM1 

Y<  4 )  +  Y<4) 

AUX1  +  AUX1 
SUM1  ♦  HT  *  (Y<3) 
HT*  < Y < 1 )  +  3. 875  < 
Y<5>  +  Y<  5 ) 

SUMS  +  SUM2 

AUX2  -  HT  *  ( Y ( 4 ) 

0 


Y( 3 )  ) 


•  AUX 1  +  Y<5>> 
<  Y  <  2  >  +Y  <  5 ) )  + 


+  2.  625* ( Y ( 3 >+Y ( 4 ) ) +Y ( 6) > 


Y(6>  ) 
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0016 

0017 

0018 

0019 

0020 

0021 


0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 


0041 


0042 


C 

C 

C 


3 


4 

5 


6 


C 

C 

C 

7 
C 

c 

c 

8 


AUX  -  Y <3 )  ♦  Y < 3) 

AUX  -  AUX  ♦  AUX 

Z  (2)  •  SUM2  -  HT  *  (Y<2>  AUX  ♦  Y<4>  ) 

Z(3)  -  SUM1 
Z  <  4 )  -  SUM2 
IF  (NDIM-6)  5.  5.  2 

INTEGRATION  LOOP 

DO  4  I  -  7,  NDIM,  2 
sum  •  AUX  1 
SUM2  -  AUX 2 
AUX 1  -  Y(I-l)  +  Y ( I — 1 > 

AUX 1  -  AUX 1  AUX1 

AUX 1  -  SUH1  +  HT  *  ( Y  ( 1-2 )  ♦  AUX1  +  Y ( I )  ) 

z <  i-2>  -  sum  . 

IF  < I — ND IN)  3,  6.  6 
AUX2  -  Y ( I )  +  Y(I) 

AUX2  -  AUX2  ♦  AUX2 

AUX2  ■  SUM2  +  HT  *  <Y(I-1>  ♦  AUX2  ♦  Y(I  +  1 > > 

2(1—1)  -  SUM2 
CONTINUE 
Z(NDIM-l)  -  AUX 1 
Z(NOIH)  «  AUX2 
RETURN 

Z(NDIM-l)  -  SUM2 
Z(NDiri)  -  AUX1 
RETURN 

END  OF  INTEGRATION  LOOP 
IF  (NDIM-3)  12,  11,  8 
NDIM  IS  EQUAL  TO  4  OR  5 

SUM2  -  1.125  *  HT  *  ( Y ( 1 >+Y (2> +Y (2>+Y <2>+Y ( 3 ) +Y ( 3) +Y (3>+Y ( 4 > ) 


0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051  9 

0052 

0053 

0054  10 

0055 

0056 

C 

c 

c 

0057  1 1 


SUM1 

m 

Y<2) 

♦ 

Y<2> 

SUM1 

m 

SUM1 

4- 

SUM1 

sum 

m 

HT  * 

<  Y  <  1  ) 

Z<  1  ) 

m 

0. 

AUX  1 

m 

Y  <  3 ) 

Y<  3  > 

AUX  1 

m 

AUX  1 

♦ 

AUX  1 

Z<2) 

m 

SUM2 

- 

HT  * 

IF  <  NDIM-5 ) 

10.  9, 

AUX1 

m 

Y  <  4 ) 

+ 

Y  ( 4 ) 

AUX  1 

m 

AUX  1 

♦ 

AUX  1 

Z  ( 5  > 

m 

SUM1 

HT  * 

Z  (3) 

m 

SUM1 

Z  ( 4 ) 

m 

SUM2 

RETURN 

sum  ♦  Y<3>> 

<  Y ( 2 )  ♦  AUX  1  Y (4 >  ) 

9 

( Y< 3 )  ♦  AUX 1  +  Y < 5 > ) 


NDIM  IS  EQUAL  TO  3 

SUM1  -  HT*  (1.25  *  Yd)  Y<2>  +  Y(2)  -  .  25  #  Y<3)> 
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SUM2  -  Y ( 2 )  +  Y<2> 
SUM2  ■  SUM2  +  SUM2 
Z<3>  *  HT  *  <  V  C 1 >  + 
Z  <  1  )  *  0. 

Z ( 2 )  *  SUM1 
CONTINUE 
RETURN 
END 


SUM2  *  Y (3 >  ) 
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0001  SUBROUTINE  BLOWdBLOW,  TF,  TM.  TWORK.  CVPPM,  TLVC.  TLVSTL. 

1  TLVTWA.  DT,  TIME.  CEXP.  TI) 


DIMENSION  CVPPM < 1 )>  TIME<1). 
DOUBLE  PRECISION  WHICH<2> 


CEXP ( 1 ) .  I SAVE <273) 


IF  ( I BLOW  .  EG  1HN)  TF  ■  TF  ♦  TM 
WRITE (2. 1 >  TM,  TF 

FORMAT < 1HI,  ///.  14X, 33HEVALUATI0N  OF  VAPOR  CONCENTRATIONS  . 

1  16HDURING  MAN-ENTRY, //,  23X.  26HTANK  IS  ENTERED  AT  TIME 

2  F5.  1.4H  MIN,  /,  23X,  25HTANK  IS  EXITED  AT  TIME  -  ,  F5.  1, 

3  4H  MIN, //) 

WHICH! 1 )  -  BHTLV-C 
WHICH! 2)  «  8HTLV-STEL 
IND  -  1 

IF  (TLVC  .  EQ.  0)  IND  ■  2 
INDEX  ■  (TM  -  TI  >  /  DT  1 
I FLAG  ■  0 
TCHECK  -  TLVC 

IF  (TLVC  .  EQ.  0.  )  TCHECK  ■  TLVSTL 
KT  -  0 

NUMVAL  «  (TF  -  TM)  /  DT  +  1 
ITOTAL  «  (TF  -  TI)  /  DT  «■  1 


NUMVAL  «  (TF  -  TM)  /  DT  +  1 
ITOTAL  •  (TF  -  TI)  /  DT  «■  1 
IF  ( I BLOW  EQ.  1HY)  00  TO  73 
DO  30  I  ■  INDEX  +  1,  ITOTAL 
CVPPM < I )  -  CVPPM(I-l) 

TIME(I)  -  T I ME  < I - 1 >  ♦  DT 
CONTINUE 
CONTINUE 

DO  100  I  «  1.  NUMVAL 

J  -  ITOTAL  -  (NUMVAL  -  I  > 

IF  < CVPPM <  J )  .  LE.  TCHECK)  00  TO  100 
KT  *  KT  +  1 
ISAVE(KT)  -  V 
I FLAG  -  1 
CONTINUE 

IF  ( I BLOW  .  EQ.  1HN)  00  TO  200 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  BLOWER  ON  DURING  ENTRY  OF  MAN  INTO  TANK 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

IF  < IFLAO  EQ.  0)  00  TO  175 
C 

C  VAPOR  CONCENTRATIONS  EXCEEDED  CEILING  OR  SHORT-TERM 

C  EXPOSURE  LIMITS 


WRITE <2,  2)  WHICH! IND) 

FORMAT </// 1 X.  10HPRED I C TED  , 

38H INSTANTANEOUS  EXPOSURE  CONCENTRATIONS  , 

1 1HEXCEED  THE  , AB,  //,  5X,  10HTIME  <MIN),5X, 

1 9HC DNCENTRAT ION  ( PPM ) , / ) 

WRITE (2, 3)  < T I ME < I SAVE <  J > ) ,  CVPPM! ISAVE(J) ), J*l, KT) 
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0036  3 

0037 
0038 
0039 

0040  4 

1 

2 

0041 

0042 

0043  5 

1 

2 

3 

4 

5 

0044 

0045  125 

0046 

0047  6 

1 

2 

3 

0048 

0049  7 

1 

2 

0050 

0051 

0052  8 

1 

2 

0053 

0054 

0055  9 

1 

2 

3 

0056 

0057  150 

0058  10 

1 

2 

0059 

C 

C 

C 

C 

0060  175 

0061 

0062 

0063 

0064 

0065  1 1 

1 

2 


F0RMAT*6X, F7. 2.  11X, F7.  1.  12X<  2BHHAZARD0US  WORKING  CONDITIONS) 
CALL  QSF(DT,  CVPPM* INDEX ) .  CEX®.  NUMVAL) 

EXPOS  •  CEXP (NUMVAL  >  /  TWORK 

WRITE (2.  4)  EXPOS 

FORMAT* //IX, 10HPREDICTED  . 

40HAVERAGE  IN-TANK  EXPOSURE  AS  MEASURED  BY  , 

14HA  DOSIMETER  -  ,  F9  2,  4H  PPM,/) 

IF  (EXPOS  LE  TCHECK)  GO  TO  125 
WR ITE (2,  5 )  WHICH* IND),  WHICH* IND) 

FORMAT (IX, 41HD0SIMETER  MONITORING  WOULD  INDICATE  THAT  ,  /, 
IX, 41HTHE  AVERAGE  IN-TANK  EXPOSURE  EXCEEDS  THE  . /. 

1 X, A8, 40H  FOR  THIS  CHEMICAL  VAPOR  AND  A  HAZARDOUS./, 
IX, 42HW0RKING  CONDITION  EXISTS.  REDUCE  EXPOSURE./. 
IX, 6HBEL0W  ,A8, 17H  BEFORE  ASSESSING. 

18H  THE  TWA  EXPOSURE.  . /) 

GO  TO  600  • 

CONTINUE 

WRITE (2- 6)  WHICH(IND)  : 

FORMAT* IX, 44HD0S I METER  MONITORING  WOULD  INDICATE  THAT  THE,/. 
IX,  42HAVERAGE  IN-TANK  EXPOSURE  IS  ACCEPTABLE  AND./. 

1 X , 20HD0ES  NOT  EXCEED  THE  , AB.  1BH  FOR  THIS  CHEMICAL. 
IX, 6HVAP0R .  ) 

WRITE ( 2, 7) 

FORMAT* IX, 40HH0WEVER,  INSTANTANEOUS  CONCENTRATIONS  DO./. 

IX, 44HEXCEED  THESE  LIMITS  REAL  TIME  MEASUREMENTS  , 
/.1X.40H0F  VAPOR  CONCENTRATION  MAY  BE  INDICATED  ) 
CTWA  «  (EXPOS  *  TWORK)  /  4B0 
WRITE <2, 8)  CTWA 
FORMAT* /IX,  10HPREDICTED  , 

4 1 HE I GHT-HOUR  TIME  WEIGHTED  AVERAQE  EXPOSURE, 

3H  -  ,  F6  2,  AH  PPM,  /  > 

IF  (CTWA  LT  TLVTWA )  CO  TO  150 
WR  ITE  <2.  9 ) 

FORMAT* IX.  10HPREDICTED  . 

4 1 HE I GHT-HOUR  TIME  WEIGHTED  AVERAGE  EXPOSURE./. 

IX,  42HEXCEEDS  THE  TLV-TWA.  HAZARDOUS  CONDITIONS,/. 
IX.  10HMAY  EXIST,  ) 

GO  TO  600 
WRITE  <2,  10) 

FORMAT* IX,  39HM0NIT0RINC  WOULD  ALSO  INDICATE  THAT  THE,/. 

IX, 42HEXP0SURE  IS  ACCEPTABLE  WITH  RESPECT  TO  THE./, 
IX, 8HTLV-TWA.  ) 

CO  TO  600 

ALL  CONCENTRATIONS  WERE  BELOW  CEILING  SHORT-TERM 
EXPOSURE  LIMITS 

CONTINUE 

CALL  QSF ( DT ,  CVPPM* INDEX ) ,  CEXP,  NUMVAL) 

EXPOS  *  CEXP (NUMVAL)  /  TWORK 
CTWA  ■  (EXPOS  *  TWORK)  /  480. 

WRITE*2, 11)  EXPOS,  CTWA 
FORMAT*/.  IX,  10HPREDICTED  . 

37HAVERAGE  EXPOSURE  DURING  TANK  ENTRY  «=  .  F9.  2, 

4H  PPM, /. 
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IX,  44HEI0HT-H0UR  TIME  WEIGHTED  AVERAGE  EXPOSURE  * 

4 

F 9  2. 4H  PPM/) 

0066 

IF  (CTWA  LT  TLVTWAl  GO  TO  180 

0067 

WRITE<2. 121  WHICH! IND) 

0068 

12 

FORMAT! IX.  10HPREDICTED  . 

1 

♦OHE I OHT-HOUR  TWA  EXPOSURE  EXCEEDS  TLV-TWA.  . 

2 

33H  HAZARDOUS  CONDITIONS  MAY  EXIST. . /. 

3 

35HSIN0LE  EXPOSURE  DOES  NOT  EXCEED  THE  .  A8.  /  > 

0069 

GO  TO  600 

0070 

180 

CONTINUE 

0071 

WRITE  12.  13) 

0072 

13 

FORMAT! IX. 10HPREDICTED  , 

1 

45HSINGLE  EXPOSURE  IS  ACCEPTABLE  WITH  RESPECT  TO, 

2 

29H  TLV-C.  TLV-STEL.  AND  TLV-TWA) 

0073 

GO  TO  600 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c 

C 

r 

BLOWER  NOT  ON  DURING  ENTRY  OF  MAN 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

r 

0074 

w 

200 

CONTINUE 

0075 

IF  1CVPPM! INDEX)  .  OE.  TCHECK)  CO  TO  400 

0076 

CTWA  -  1CVPPM! INDEX)  *  TWORK)  /  480. 

0077 

WRITE12.il)  CVPPM! INDEX),  CTWA 

0078 

IF  ! CTWA  LT.  TLVTWA >  00  TO  300 

0079 

WRITE12.  12)  WHICH! IND) 

0080 

GO  TO  600 

0081 

300 

CONTINUE 

0082 

WRITE12.  13) 

0083 

GO  TO  600 

00B4 

400 

CONTINUE 

0085 

WRITE (2.  2)  WHICH! IND) 

0086 

WRITE! 2, 3)  !TIME! ISAVE1J) >. CVPPM! ISAVE! J) ).  J-i.  KT) 

0087 

WRITE! 2, 4)  CVPPM! INDEX ) 

0088 

WRITE12. 5)  WHICH! IND).  WHICH! IND) 

0089 

600 

CONTINUE 

0090 

RETURN 

0091 

END 
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PROGRAM  LISTING  FOR  THE  ONDEK 
PLUME  DISPERSION  MODEL 


Main  Program 

Integer  Function 

Integer  Function 

Real  Function 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 


ONDEK 

HAMING 

RUNGE 

SIMUL 

RHS 

CSUM 

CONT 

START 

1NDAT 

PROMPT 


C****  PROGRAM  ONDEK  **************************************************** 

C . THIS  PROGRAM  COMPUTES  THE  TRAJECTORY  AND  CONCENTRATION  DISTRI- 

C . BUT  ION  OF  BUOYANT  PLUMES  OF  CHEMICAL  VAPOR  AND  AIR  THAT  ARE 

C  . EMITTED  INTO  AN  ATMOSPHERIC  BOUNDARY  LAYER.  THE  COMPUTER  PRO- 

C . GRAM  IS  BASED  UPON  OOMS'  METHOD  (REFERENCE.  C.  OOMS.  'A  NEW 

C . METHOD  FOR  THE  CALCULATION  OF  THE  PLUME  PATH  OF  GASES  EMITTED 

C . BY  A  STACK*.  ATMOSPHERIC  ENVIRONMENT,  VOL  6.  1972)  AND  TE 

C . RIELE '5  METHOD  (REFERENCE,  P.  H.  M.  TE  RIELE,  'ATMOSPHERIC  DISPER- 

C . SION  OF  HEAVY  GASES  EMITTED  AT  OR  NEAR  GROUND  LEVELS'.  2ND 

C . INTERNATIONAL  SYMPOSIUf*  ON  LOSS  PREVENTION  AND  SAFETY  PROMOTION 

C . IN  THE  PROCESS  INDUSTRIES,  SEPT.  1977) 

C 

C . LIST  OF  INPUT  VARIABLES . 

C  SO  -  STARTING  VALUE  FOR  PLUME  PATH  TRAJECTORY,  M 

C  H  *=  INTEGRATION  STEP  SIZE.  M 

C  SMAX  *  TERMINATION  VALUE  OF  PLUME  PATH  INTEGRATION.  M 

C  I NT  -  NUMBER  OF  INTEGRATIONS  BETWEEN  PR I NT -OUTS 

C  YU ( 1 )  «  INITIAL  VALUE  OF  CONCENTRATION,  KG/M**3 

C  YR ( 2 )  «  INITIAL  VALUE  OF  PLUME  CHARACTERISTIC  RADIUS.  M 

C  YR  < 3 )  <=  INITIAL  VALUE  OF  PLUME  VELOCITY  -  WIND  SPEED  COMPONENT, M/S 

C  YR ( 4 )  -  INITIAL  VALUE  OF  PLUME  ANCLE  WITH  RESPECT  TO  HORIZON,  RADIANS 

C  YR ( 5 )  **  INITIAL  VALUE  OF  X,  HORIZONTAL  DISTANCE  FROM  VENT,  M 

C  YR  ( 6 )  -  INITIAL  VALUE  OF  Y.  VERTICAL  HEIGHT  ABOVE  DECK.  M 

C  WMJ  «  MOLECULAR  WEIGHT  OF  EMITTED  OAS 

C  PO  *  ATMOSPHERIC  PRESSURE,  MM  HG 

C  TO  *  ATMOSPHERIC  TEMPERATlfRE.  DEC  RANKINE 

C  UR  *=  REFERENCE  VELOCITY  AT  ZREF,  M/S 

C  ZREF  -  REFERENCE  HEIGHT,  M 

C  CMF  «  MASS  FRACTION  OF  TRACER  GAS  IN  EMITTED  GAS 

C  TLV  -  TURBULENCE  LEVEL 

C  ZCON  «  CONCENTRATION  MEASURE  HEIGHT,  M 

C  IC  *  NUMBER  OF  CONCENTRATION  VALUES  FOR  CONTOUR  LINES,  MAX-6 

C  C  C I )  -  CONCENTRATION  VALUES  FOR  CONTOURS 
C  YRUF  -  SURFACE  ROUOHNESS  PARAMETER.  CENTIMETERS 
C 

INTEGER  COUNT,  RUNGE.  HAM INC 

REAL  APLACE (10), ADATE  <  3 ) .  ACLASS ( 5 ) .  ACAS ( 5 ) ,  LEL,  LELM 
DIMENSION  TE(6>, YR<6>. FR<6>. Y<4, 6), F(3. 6). YRS(6).  C(6>, YC(6> 
DIMENSION  YRSAVE  ( 6 ) .  CONOO,  5).  CONB  (  50.  5  > .  DIS  (  50  > ,  CONC  (  50.  6) 
COMMON/PHYS/DCDR , EPS.  UPRI,  ROA, ROE.  G. ALF.  TAU,  U10 
COMMON/CONS/ 1 DECK,  AF1,  AF2,  AF21,  BTA,  DLA,  BT1.  DBA,  BM1.  CAM 
C0MM0N/C0N2/R0T 

COMMON/DAT 1 /SO,  VD,  VH,  ZDECK,  ZREF,  UR 
C0MM0N/DAT2/P0,  TO,  UVENT.  CO,  UTLV,  WMG 
C0MM0N/DAT3/P VAP .  DISTAN,  DISMAX,  QL,  ZCON 
C0MM0N/DAT4/CC1, CC2,  CC3,  CC4,  CCS,  CC6 
C0MM0N/DAT5/UEL,  LEL,  STIL.  TLV,  ODOR 
C0MM0N/DAT6/ APLACE,  ADATE,  AGAS 
C 

C****  SPECIFICATION  OF  DEFAULT  VALUES  FOR  INPUT  DATA  ****************** 
DATA  SO,  VD,  VH.  ZDECK,  PO/O  0,  0.  203,  1.  0,  1.  0,  760.  / 

DATA  TO. ZREF, UR. UTLV, WMC/520.  ,  10.  . 2. 24, 20.  , 86.  10/ 

DATA  OL.  DISMAX,  DISTAN,  WMA,  PVAP/159.  0,  10  ,  1.  0,  28  97,  90  / 

DATA  ZCON, IC/1  68. 6/ 

DATA  CC1.  CC2,  CC3,  CC4,  CCS,  CC6/1000.  0.  12,134000,26000.20.10/ 

DATA  UEL, LEL,  STIL,  TLV,  ODOR/13.  4, 2  6, 20.  .  10  .  0.  12/ 

C 

C 

C****  OPEN  OUTPUT  FILE  FOR  PRINTING  *********************************** 
0PEN(UNIT-3, NAME- 'REBONDEK.  DAT ',  STATUS- 'NEW ' ) 

open (Unit -2, name- 'scratch,  dat ', status- 'new ' > 

TYPE  *,  '**********  PROGRAM  ONDEK  **********  ' 
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c 


c 


TYPE  *,  'THIS  PROGRAM  COMPUTES  THE  TRAJECTORY  AND  CONCENTRATION  ' 
TYPE  *.  'DISTRIBUTION  OF  BUOYANT  PLUMES  OP  CHEMICAL  VAPOR  AND  AIR' 
TYPE  #,  'THAT  ARE  EMITTED  INTO  THE  AIR  ABOVE  A  SHIP  OR  BARGE  DECK' 
TYPE  *.  ' 

TYPE  *.  'PREPARE  TO  ENTER  INPUT  DATA  REQUIRED  BY  THE  PROGRAM  ' 

TYPE  *.  '  ' 

.  .  .  .  ENTER  TODAY'S  DATE . 

TYPE  #,  '  ENTER  TODAY*S  DATE  (UP  TO  ID  CHARACTERS)  ' 

TYPE  *,  ' 

ACCEPT  600,  (ADATE(J), J=l. 3) 

TYPE  *,  ' . ' 

1  CONTINUE 


C ***■*•  CALL  SUBROUTINE  1NDAT  TO  ENTER  DATA  INTERACTIVELY  *************** 
CALL  INDA7 
C 

C***«  INITIALIZE  VARIABLES  AND  ASSIGN  VALUES  TO  CONSTANTS  **#**«■«■*#***** 
G“  9  80660 

x*  o  o 

DISTA=  0  o 

C  STEP  SIZE  SET  EQUAL  TO  1/5TH  OP  THE  VENT  DIAMETER .  . 

.  H*  VD/5  0 

EPS=  0  0000000001 

C  MASS  FRACTION  OP  GAS  CONSTITUENT  SET  EQUAL  TO  I . 

CMF«*  1  0 
ID£CK=  1 
I  A*  0 

ALP  *  0  14 

GAM  =  1  18597434 

DLA  =  0  176077 

BTA  =  0  91 1784 

YRUF  =  1  000 

CALL  START < WMA, YR, WMJ) 

UPR 1=  3  0*UTLV*UR/100 
UA*UR 

DC DR “WMJ/ ( WMJ-28.  96) 

ROA «( (PO/760  ) *  1 4.  7)*1 *4  *2B.  96416.  0522/(1545.  *TO) 

R0E=R0A*WMJ/2B  96 
ROVAP=  ROA*WMG/?0  96 

C  STORE  VALUES  OF  CONTOUR  CONCENTRATIONS  FOR  PRINT  OUT . 

C  ( 1  )«=  CC 1 4R0VAP / 1 000000 
C (2)«  CC2*R0VAP/ 1000000 
C ( 3 ) =  CC3*R0VAP/ 1000000. 

C  <  4 ) =  CC4*R0VAP/ 1000000 
C  <  5 ) =  CC5*R0VAP/ 1000000. 

C<6>«=  CC6*R0VAP/ 1000000 
UELM=  UEL*R0VAP/10C) 

LELN=  LEL*ROVAP / 1 00. 

ST  I LM=ST IL*ROVAP / 1 000000 

TLVM=  TLV  *ROVAP/ 1000000 

QDORM“  ODOR *ROVAP / 1 000000 

TRACON=YR< 1 )*CMF 

I DECK  =  1 

C0NH1=0 

XCON=YR ( 5 ) 

c, 

C****  INITIALIZE  VARIABLES  FOR  PLOT  FILES  ***************************** 


C .  COMPUTE  THE  WIND  SHEAR  STRESS,  TAUO . 

C  THE  EQUATION  USED  MAY  BE  ACCURATE  ONLY  FOR  NEUTRAL 

C . ATMOSPHERIC  STABILITY  CONDITIONS . 

U10»UR*< (10  +ZDECK ) /ZREF ) **ALF 
ZP“  ALOCdOOO  /YRUF) 

TAU  =0.  1 6*U1 0*U1 0/ ( ZP*ZP ) 
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C .  COMPUTE  THE  CONSTANTS  THAT  ARE  NEEPED  TO  INTEGRATE 

C .  THE  EQUATIONS  FOR  TE  RIELE'S  PLUME  MODEL  . 


AF1-1  +ALF 
AF2*2*ALF 
AF21  =  1 .  +AF2 
BT1-1.  /BTA 
DBA*DLA#*BT1 
BM1-1.  -BTJ 

ROT- ( 1  -ROA/ROE ) /ROA 


T  AUO*>T  AU*ROA 

C . SET  GCON  «  SORT (PI)  #AF2I  /  <  GAM#2.  > . 

C  . THIS  VARIABLE  IS  USEP  IN  THE  INITIAL  VALUE  OF  SICMAZ 

CCON^O.  8862269255*AF21  /CAM 

C .  PRINT  THE  HEADING  AND  THE  INITIAL  CONDITIONS . 

WRITE <3. 710)  <  APLACE  <  J ) , J=l,  10),  ( ADATE  <  J) . J-l. 3) 

WRITE (3. 71 1 )  PO.  TO* UR.  ZREF, ALF, UTLV 


WRITE <3, 712)  VD. VH.  ZDECK,  < ACAS ( J ) . J«l. 5).  WMJ, YR< 1 ).  QL.  UVENT 

WR ITE  <  3, 719)  UELM. LELM.  ST1LM. TLVM.  ODORM 

WRITE (3. 713)  <C< J). J=l. IC>. ZCON 

WRITE<3, 714)  H, DISMAX 

WRITE  <  3. 715) 


C . INITIALIZE  THE  STEP  COUNTER  AND  THE  FIRST  ROW  OF  THE  Y  MATRIX.  . 

C . SET  THE  INITIAL  TRUNCATION  ERRORS  TO  ZERO . 


COUNT  *  0 
DO  405  J*l,  6 
TE  ( J  >  =  0 
405  Y < 4. J)»  YR  <  J  > 

TYPE  *,  '  COMPUTING  PLUME  TRAJECTORY  AND  DISPERSION  ' 


C .  CALL  RUNGE  TO  INTEGRATE  ACROSS  THE  FIRST  THREE  STEPS 

C . RUNGE  IS  USED  AS  A  STARTER  FOR  HAM  INC . 


410  IF  <RUNCE<6.  YR.  FR.  X.  H>.  NE.  1)  GO  TO  420 
CALL  RHS< YR, YRS) 

DO  415  K«l, 4 
415  FR(K)=YRS(K) 

FR  <  5 )  ■*  COS  <  YR  <  4 ) ) 

FR<6)«  SIN*  YR<4 ) ) 

CO  TO  410 

C.  .  PUT  THE  APPROPRIATE  INITIAL  VALUES  IN  THE  Y  AND  F  MATRICES 
420  COUNT  »  COUNT  1 
I  SUB  =  4  -  COUNT 
DO  425  J*1.6 
425  Y < I SUB. J)  *  YR< J) 

CALL  RHS<YR, YRS) 

DO  430  K* J .  4 
430  F ( I SUB. K)*YRS(K) 

F ( I SUB.  5 ) *  COS<  YR (4 ) ) 

F  (  I  SUB .  6)«=  S IN  <  YR ( 4 )  ) 

C 

C*«**  IF  X  CT  DISTA.  PRINT  VALUES  OF  THE  PLUME  VARIABLES  *#*#**### 
435  CONTINUE 

IF  (COUNT.  LE  3)  GO  TO  450 
IF  ( Y < 1 . 5 ) . LE  DISTA)  00  TO  450 
TRACON  «  Y(l,  1 )*CMF 

C  .  COMPUTE  CONH 1 ,  CONCENTRATION  AT  BREATHING  HEIOHT.  ZCON  . 

B2-Y( 1, 2)*Y< 1. 2)#1.  35 

CR 1 c Y ( 1 . 6 ) —ZCON 

CZ1-CR1*CR1/B2 

IF  <CZ1  QT  13  81)  CO  TO  440 

CR2-YU,  &>+ZCON 

CZ2-CR2*CR2/B2 

XCON=Y< 1. 5) 

C0NH1®Y< 1, 1 )*CMF*<  EXP(-CZl)  +  EXP<-CZ2>> 

00  TO  445 
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noon  on  r>  non  n  no 


44<>  XCON  =  Yd  ,  5) 

C0NH1 ”0 

445  C0N71NUC 

COMPUTE  PLUME  CENTERLINE  CONCENTRATION  WITH  THE  EFFECT  OF  AN 

IMAGE  PLANE  AT  GROUND  LEVEL  . 

CZ3&  4  *Y(1,6)*Y(1,6)/B2 
IF  ( CZ3  CT.  13  81)  CO  TO  446 
YCL=  Y( 1, 1 )*( 1  +EXP(-CZ3> ) 

CO  TO  447 

446  YCL*  Y(l, 1 ) 

447  CONTINUE 

CALL  CONT  <C,  YC,  Y,  1.  IC,  0.  .  0.  ,  0,  ,  0.  ,  ZCON) 

IF  (COUNT.  GT  3)  WRITE<3,716)  X,  Y d ,  5 ) .  Y <1 , 6 ) ,  Y <1 .  1 ) .  CONH1 ,  XCON, 

1  <  YC<  I ),  1  =  1, 6),  Y<1, 2),  Yd.  3),  Yd,  4) 

IA=  IA+1 
D I S  (  I A )  =  Yd,  5) 

ASSIGN  VALUES  TO  CONC  ARRAY  . 

DO  448  I  Id  ,  6 

CONC  (  I  A,  II)  =  YCdl  ) 

44 S  CONTINUE 

C ON  (  I A ,  5  )  =  YCL 

IF  (CONH1.LT  CM)  CONH1  =Cf1 

COND  < I  A,  5>=C0NH1 

CON  <  I  A,  2  >  =  UELM 

CONBC I A,  2>=UELM 

CON  (  I  A.  3)t=-  LELM 

CONB<  IA,  3)=LELM 

CON< IA,  4>-  STILM 

CONB ( IA,  4 ) =ST ILM 

CON ( I A,  1 )=  TLVM 

CONB  (  I  A,  1  )dLVM 

DIE'TA-  DISTA  +  DISTAN 

IF  X  EXCEEDS  DISMAX,  TERMINATE  THE  INTEGRATION . 

450  IF  (X  GT  DISMAX+H/2.  )  GO  TO  560 

CALL  RUNGE  OR  HAMING  TO  INTEGRATE  ACROSS  THE  NEXT  STEP . 

IF  (COUNT.  LT  3)  GO  TO  4  10 

CALL  HAMING . 

455  M  *  HAMING(6, Y,  F,  X,  H,  TE) 

DO  460  K=l, 4 
460  YR(K)--Y(1,K) 

CALL  RHS(YR.YRS) 

DO  465  K=J  ,  4 
465  F(l,  K)«YRS(I<) 

Fd,  5  )  =  COS  (  Y  (  1,4)) 

Fd,  6)=  S 1  N  <  Y  (  1,4)) 

IF  (M  EG  1)  GO  TO  455 

INCREMENT  STEP  COUNTER  AND  CONTINUE  INTEGRATION . 

COUNT  =  COUNT  +  1 
IF  (Y(  1, 6).  LT  0.  )  CO  TO  500 
GO  TO  435 
500  CONTINUE 

****  TRANSITION  TO  TE  RIELE'S  METHOD  ******************************** 

I DECK  =  0 

...FOR  INITIAL  CONDITIONS-  3ET  . 

Yd,  1  >=2*Y(1,  1  )  .  CA-2*C  ON  THE  PLUME  CENTERLINE . 

. Yd  .  2>  =  1.  161B95*Y(  1,2).  .  .  S I GMAY=LAMDA*PLUME  WIDTH . 

.  Y( 1, 3>=YR(2)*GC0N  5IGMAZ=SIGMAY*CC0N . 

YR  < 1  )  =  2*Y (1.1) 

YR ( 2  >  *1  161 895*Y (1,2) 

YR ( 3 )  -YR(2)*GC0N 
WRITE (3. 717) 

COUNT  =■  0 
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y 


DO  505  J-1,3 
TE  <  0 )  -  0 
503  Y <4,  J)  *  YK<  J> 

C  CALL  RUNCE  TO  INTI- ORATE  ACROSS  The  FIRST  THREE  STEPS . 

5)0  IF  (RUNOEO.  YR,  FR,  X,  H)  HE  1)  00  TO  520 
CALL  RHS(YR.YRS) 

DO  5 J  5  K-l.  3 
515  FR(K)-YRS(H) 

CO  TO  510 

C . PUT  THE  APPROPRIATE  INITIAL  VALUES  IN  THE  Y  AND  F  MATRICES 

520  COUNT  »  COUNT  +  1 
I  SUB  »=  4  -  COUNT 
DO  525  U-l. 3 
525  Y ( I SUB ,  J )  -  YR  < J) 

CALL  RHS< YR,  YRO) 

DO  530  K-), 3 


530  F < I SUP .  K)«YRS(K) 

C . PRINT  SOLUTIONS  WHEN  X  EXCEEDS  DIS1A . 

535  IF  (X  LE.  DISTA)  CO  TO  540 
IF  (COUNT.  LE.  3)  CO  TO  540 

CALL  CONT(C.  YC.Y.O.  1C.  2  >  ALF2 l.Y(1.2).Y(l,3),  ZCON ) 

IF  (COUNT  CT.  3)  WRI TE < 3.  ? 18)  X,  <Y< J, J). J-l. 3),  <YC(K), K-l,  6) 

C  IF  X  EXCEEDS  DISMAX.  TERMINATE  THE  INTEGRATION . 

540  IF  (X  CT  DI8MAX+H/2.  )  00  TU  560 

C . CALL  RUNCE  OR  HAMINC  TO  INTEGRATE  ACROSS  THE  NEXT  STEP.  .  . 

IF  (  COUNT.  LT.  3)  CO  TO  510 

C . CALL  HAMINC . 

545  M-  HAMINGO,  Y,  F.  X,  H.  TE  > 


DO  550  K- 1 , 3 
550  YR  ( K )— Y  ( 1 .  K ) 

CALL  RHS(YR.YRB) 
DO  555  K-l, 3 
555  F(1,K)*YRS<K) 


IF  (M.  EQ.  1)  00  TO  545 

C .  INCREMENT  STEP  COUNTER  AND  CONTINUE  INTEGRATION. 

COUNT  -  COUNT  +  1 
CO  TO  535 
560  CONTINUE 

C  WRITE  TO  SCRATCH  FILE . 

WRITE (2. 900) I A 


900  FORMAT! 15) 

DO  501  JU-1, IA 
WRITE (2. 910)DIB< JJ) 

910  FORMAT (E12.  3) 

501  CONTINUE 

DO  503  KK-1. 5 
DO  502  JJ-1, IA 

WRITE (2.  920) CON (UV.  KK> , CONB ( JJ, KK ) .  CONC ( JJ. KK ) 

920  FORMAT (3E 12.  3) 

502  CONTINUE 

503  CONTINUE 

DO  504  JJ-1,  I A 
WRITE(2. 910>C0NC(JJ,  6) 

504  CONTINUE 
C 

c**»*  FORMATS  FOR  INPUT  STATEMENTS  ***#*****#***********#*♦♦####**#####* 
600  FORMAT (3A4) 

C 

C****  FORMATS  FOR  OUTPUT  STATEMENTS  ♦#♦*#♦*#*#*#*#**♦#*#**#*****♦******* 

710  FORMAT! 1H1,  9H  TITLE*  ,  1 0A4.  BH  DATE*  . 5A4. //) 

711  FORMATOOHO  METEOROLOGICAL  C0NDITI0N8//7X,  22H0  BAROMETRIC  PRESS 
1URE-.F7  3,  25H  MM  HC  AIR  TEMPERATURE-,  F5.  1 . 6H  DEG  R/7X. 22H0  AVER 
2ACE  WIND  SPEED-.F6  2.25H  M/S  AT  REFERENCE  HEIOHT-.  F7.  2,  2H  M/ 
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3  7X.22H0  WIND  EXPONENT^,  F5  2/ 

4  7X.22H0  TURBULENCE  LEVEL=, F6  2// ) 

712  FORMAT (28H  VAPOR  VENTING  CONDITIONS// 

1  7X.22H0  VENT  DIAMETER  =  . F6  2,  7H  METERS  ,  / 

2  7X.22H0  VENT  HE  1  GHT=,  F6.  .2.  23H  METERS  ABOVE  THE  DECK  .  / 

3  7X.22H0  DECK  HE1GHT=.  F6.  2.  24H  METERS  ABOVE  THE  WATER  . // 

4  7X, 22H0  EMITTED  VAPOR=, 2X. 5A4, / 

l*  7X.22H0  MOLECULAR  WEIGHT=,  F6  2.  24H  OF  GAS  AND  AIR  MIXTURE  ,  / 

6  7X.22H0  VENT  CONCENTRATION^  ElO  3,  10H  KG/(M**3>  ,  // 

7  7X , 22H0  VENTING  FLOWRATE*. F6  0. 10H  <M##3)/HR./ 

b  7X.22H0  VENTING  VELOC I TY= , F6  2.  6H  M/SEC  , //  ) 

713  FORMAT ( 6 1 H  VALUES  OF  CONCENTRATION  CHOSEN  FOR  CONCENTRATION  CON 

) TOURS//. 


c 

7  X  ,  1 OHC1 

Cl 

=  ,  E  10 

3, 

10H 

<KG/M**3) 

,  / 

7  X  •  10HD 

C2 

=  ,  L 1 0 

3. 

10H 

<KG/N**-3> 

,  / 

/• 

7  X ,  i OHO 

C3 

=  •  tio 

3. 

10H 

<  KG/M**3 ) 

,  / 

i 

7X .  1  OHO 

C4 

=  .  ElO 

3, 

1  OH 

(  KG/Mk-2  ) 

,  / 

6 

7  X .  10H0 

C5 

=  .  ElO. 

3, 

10H 

<KG/M**3) 

,  / 

7 

7X ,  1  OHO 

C6 

=  ,  ElO. 

3, 

10H 

(KG/M**3> 

,  / 

Fj  7X.29H0  PREDICTED  FOR  A  HEIGHT  OF,  F6.  3  .  24H  METERS  ABOVE  DECK 
9LEVEL  //) 

714  FORMAT ( 30H  NUMERICAL  INTEGRATION  DATA//7X, 14H0  STEP  SIZE=,F7. 
14.38H  METERS.  MAXIMUM  DOWNWIND  DISTANCE^  F7.  2, 7H  METERS/) 

715  FORMAT < 1  HI,  56H  BEGIN  PLUME  COMPUTATION  THROUGH  THE  AIR  ABOVE  THE 

1  DECK/ 1  HO, 4H  S, 7X. 3HXCL, 6X, 3HZCL, 7X. 3HCCL, 8X. 5HCZC0N,  6X.  4HXCON,  3X 
2,  60HYC 1  YC2  YC3  YC.4  YC5  YCfe  B  U*  THETA/ 1 

3H  , 1 20H  METERS  METERS  METERS  KG/M**3  KG/M*#3  METERS 

4 METERS  METERS  METERS  METERS  METERS  METERS  METERS  M/S  RADIAN/) 

716  FORMAT  (  /F7  2.  2 ( 2X .  F7  3),2(2X.E10  4  ) .  1  X,  F7  3,  7  (  1  X ,  F6  3 ) ,  2  (  1 X.  F6  3 )  ) 

717  FORMAT ( / /43H  CONTINUE  PLUME  COMPUTATION  ALONG  THE  DECK//9BH  X (MET 

1ERS)  CA ( KG/M3 )  SIGMAY(M)  SIGMAZ(M)  Y1(M)  Y2(M)  Y3(M)  Y 

24 (M)  Y5(M)  Y 6 ( M )  ) 

71B  FORMAT (F7  2, 3X, F9  6.  IX. F7  3, 7 < 3X . F7.  3) > 

719  FORMAT (63H  VALUES  OF  CONCENTRATION  FOR  FLAMMABILITY  AND  HEALTH 

1  HAZARDS  .  // 

2  7X.35H0  UPPER  FLAMMABLE  LIMIT  (UEL)  *=,E10.  3.  10H  KG/<M**3>  ,/ 

3  7X.35H0  LOWER  FLAMMABLE  LIMIT  ( LEL )  =  ,  ElO  3,  lOH  KG/(M**3)  ,/ 

47X.37H0  SHORT  TERM  INHALATION  LIMIT  ( STIL )  =  , ElO.  3,  1  OH  KG/(M**3>  ,/ 

5  7X.  35H0  THRESHOLD  LIMIT  VALUE  ( TL  V )  =  ,  ElO.  3.  10H  KG/(M**3>  ,  / 

6  7X.35H0  ODOR  THRESHOLD  (ODOR)  =,E10  3. 10H  KG/(M**3>  //) 

720  FORMAT (7H  AT  X=  . F6.  3.  16H  METER5.  AND  Y=  . Ffe. 3, 37H  METERS.  THE  PR 
1EDICTED  CONCENTRATION^, E12  fe,  9H  KG/M**3  ) 

724  FORMAT ( / ) 

725  FORMAT < 66H  GRAPH  OF  PLUME  CENTERLINE  CONCENTRATION  VERSUS  DOWNWIND 
1  DISTANCE  ) 

726  FORMAT  <  55H  0  ORDINATE  IS  PROPORTIONAL  TO  LOG ( CONCENTRATION ) 

1  /  55H  G  ABSCISSA  IS  PROPORTIONAL  TO  DISTANCE 

2  / /  55H  TABLE  OF  CORRESPONDING  VALUES 

3  /  55H  VALUE  X( METERS)  Y<KG/M**3>  Y(PPM)  ) 

730  FORMAT  (  4X,  F4  1.  10X.  F6  1,  7X,  ElO.  3,  4X,  F9.  0) 

731  FORMAT ( 75H  GRAPH  OF  VAPOR  CONCENTRATION  AT  MAN  BREATHING  HEIGHT  VS 
1  DOWNWIND  DISTANCE  ) 

732  FORMAT* 77H  GRAPH  OF  VAPOR  CONCENTRATION  CONTOURS  AT  MAN  BREATHING 
1  HEIGHT  ABOVE  THE  DECK  > 

733  FORMAT ( 7 1H  0  ORDINATE  IS  PROPORTIONAL  TO  DISTANCE  IN  THE  CROSS- 

1  WIND  DIRECTION  ./ 

2  71H  0  ABSCISSA  IS  PROPORTIONAL  TO  DISTANCE  IN  THE  DOWNST 

3REAM  DIRECTION  . // 

4  71H  TABLE  OF  CORRESPONDING  VALUES  CONCENTRA 

5TI0N  CONTOURS  .  / 

6  72H  VALUE  X< METERS)  Y( METERS)  SYMBOL  < 

7PPM )  (KG/M<-«3)  ) 

734  FORMAT < 4X . F4  1,  10X, F6  1, SX. F6  1. SX, A4, F10.  2. ElO.  3) 
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B41  TYPE  *,  '  DO  YOU  WANT  TO  RUN  ANOTHER  CASE  <Y/N>?  ' 

READ <5.  850) IDO 
Bt*0  FORMAT  (AO) 

IF (IDO  NE.  JHN  AND.  IDO.  NE.  1HY)C0  TO  BA 1 
IF (IDO  EG  1 HN ) CO  TO  1000 

C .  PREPARE  TO  RUN  ANOTHER  CASE . 

TYPE  *.  ' 

TYPE  *.  '  PREPARE  TO  ENTER  INPUT  DATA  REQUIRED  BY  THE  PROGRAM  ' 

TYPE  *.  ' 

CO  TO  1 
1000  CONTINUE 
END 

INTEGER  FUNCTION  HAM I NO <  N, Y. F. X, H.  TE ) 

C**«-F  UNCTION  HAMING  IS  TAKEN  FROM  ©APPLIED  NUMERICAL  METHODS©  BY 

D  CARNAHAN,  H  A.  LUTHER.  AND  U.  0.  WILKES.  PUBLISHED  BY  J  WILEY 
C »-*-*-  AND  SONS,  INC  1969.  PAGES  401  TO  400. 

C  HAMING  1NPLEMENTS  HAMM I NGCS  PREDICTOR-CORRECTOR  ALGORITHM  TO 

C  SOLVE  N  SIMULTANEOUS  FIRST-ORDER  ORDINARY  DIFFERENTIAL 

C  EQUATIONS  X  IS  THE  INDEPENDENT  VARIABLE  AND  H  IS  THE 

C  INTEGRATION  STEPSI2E.  THE  ROUTINE  MUST  BE  CALLED  TWICE  FOR 

C  INTEGRATION  ACROSS  EACH  STEP.  ON  THE  FIRST  CALL.  IT  IS  ASSUMED 

C  THAT  THE  SOLUTION  VALUES  AND  DERIVATIVE  VALUES  FOR  THE  N 

C  EQUATIONS  ARE  STORED  IN  THE  FIRST  N  COLUMNS  OF  THE  FIRST 

C  FOUR  ROWS  OF  THE  Y  MATRIX  AND  THE  FIRST  THREE  ROWS  OF  THE  F 

C  MATRIX  RESPECTIVELY.  THE  ROUINE  COMPUTES  THE  N  PREDICTED 

C  SOLUTIONS  YPRED(J).  INCREMENTS  X  BY  H  AND  PUSHES  ALL 

C  VALUES  IN  THE  Y  AND  F  MATRICES  DOWN  ONE  ROW.  THE  PREDICTED 

C  SOLUTIONS  YPRED(J)  ARE  MODIFIED.  USING  THE  TRUNCATION  ERROR 
C  ESTIMATES  TE<J)  FROM  THE  PREVIOUS  STEP.  AND  SAVED  IN  THE  FIRST 

C  ROW  OF  THE  Y  MATRIX.  HAMING  RETURNS  TO  THE  CALLING  PROGRAM  WITH 

C  THE  VALUE  1  TO  INDICATE  THAT  ALL  DERIVATIVES  SHOULD  BE  COMPUTED 

C  AND  STORED  IN  THE  FIRST  ROW  OF  THE  F  ARRAY  BEFORE  THE  SECOND 

C  CALL  IS  MADE  ON  HAMING  ON  THE  SECOND  ENTRY  TO  THE  FUNCTION 

C  (DETERMINED  BY  THE  LOGICAL  VARIABLE  PRED).  HAMING  USES  THE 

C  HAMMING  CORRECTOR  TO  COMPUTE  NEW  SOLUTION  ESTIMATES.  ESTIMATES 

C  THE  TRUNCATION  ERRORS  TE<U>  FOR  THE  CURRENT  STEP.  IMPROVES 

C  THE  CORRECTED  SOLUTIONS  USING  THE  NEW  TRUNCATION  ERROR 
C  ESTIMATES,  SAVES  THE  IMPROVED  SOLUTIONS  IN  THE  FIRST  ROW  OF  THE 
C  V  MATRIX,  AND  RETURNS  TO  THE  CALLING  PROGRAM  WITH  A  VALUE  2  TO 

C  INDICATE  COMPLETION  OF  ONE  FULL  INTEGRATION  STEP. 

LOGICAL  PRED 

DIMENSION  YPRED ( 20 ) ,  TE(N).  Y(4,N).  F  <3.  N) 

DATA  P RED  /  TRUE.  / 

IS  CALL  FOR  PREDICTOR  OR  CORRECTOR  SECTION  . 

IF  <  NOT  PRED)  GO  TO  4 

.  PREDICTOR  SECTION  OF  HAMING  . 

...  COMPUTE  PREDICTED  Y«U)  VALUES  AT  NEXT  POINT  . 

DO  1  U»1.N 

1  YPRED(J)  »  Y(4.U)  +  4.  #H*<2.  *F<  1.  U)  -  F<2,  U)  +  2.  *F<3.  J)  >/3. 

.  UPDATE  THE  Y  AND  F  TABLES  . 

DO  2  U»l,  N 
DO  2  K5<-1, 3 
K  *  5  -  K5 
Y (K,  J)  -  Y < K-l ,  J) 

2  IF  <K  LT.  4)  F <K>  U>  -  F(K-l.U) 

MODIFY  PREDICTED  Y<U>  VALUES  USING  THE  TRUNCATION  ERROR 
ESTIMATES  FROM  THE  PREVIOUS  STEP  INCREMENT  X  VALUE 
DO  3  U*1 ,  N 
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o  n  on  o  000000000000000000  no  o  o^  0000 


3  VU.J'  =•  YPRED(U)  +  112  *TF(J)/9 
X  =  X  +  H 
C 

C  SET  PRED  A ND  REQUEST  UPDATED  DERIVATIVE  VALUES 

P RED  -  FALSE 
HAM INC  =  1 
RETURN 

.  .  CORRECTOR  SECTION  OF  HAM1NG 

COMPUTE  CORRECTED  AND  IMPROVED  VALUES  OF  THE  Y<U>  AND  SAVE 
TRUNCATION  ERROR  ESTIMATES  FOR  THE  CURRENT  STEP 
A  DO  5  J*I,N 

Y(1.U>  =  <9  *  Y  <  2. J ) -Y ( A ,  J)  +  3  *H# ( F < 1 ,  J>+2  *F <2.  U> -F ( 3, J) > > /B 
TE<U>  =  9  *(Y(1,U>  -  YPRED ( J) 1/121 
5  Y(  1.  J)  =  Y(  1  j;  -  TE(  J) 

SET  PRED  AND  RETURN  WITH  SOLUTIONS  FOR  CURRENT  STEP 
PRED  =  .  TRUE 
HAM INC  *  2 
RETURN 
END 

INTEGER  FUNCTION  RUNGE < N. Y, F, X, H > 

***FUNCTION  RUNGE  IS  TAKEN  FROM  ©APPLIED  NUMERICAL  METHODS©  BY 
***■  B  CARNAHAN.  H  A.  LUTHER,  AND  J  0  WILKES.  PUBLISHED  BY  J.  WILEY 
AND  SONS,  INC  :969  PAGES  374  TO  375 

THE  FUNCTION  RUNGE  EMPLOYS  +HE  FOURTH-ORDER  RUNCE-KUTTA  METHOD 
WITH  KUTTAffS  COEFFICIENTS  TO  INTEGRATE  A  SYSTEM  OF  N  SIMULTAN¬ 
EOUS  FIRST  ORDER  ORDINARY  DIFFERENTIAL  EQUATIONS  F< J)=DY< J) /DX, 
<J*1,2»..  .N),  ACROSS  ONE  STEP  OF  LENGTH  H  IN  THE  INDEPENDENT 

VARIABLE  X.  SUBJECT  TO  INITIAL  CONDITIONS  Y<J>,  ( J-l , 2,  .  .  .  ,  N) . 

EACH  F<J),  THE  DERIVATIVE  OF  Y(U>,  MUST  BE  COMPUTED  FOUR  TIMES 
PER  INTEGRATION  STEP  BY  THE  CALLING  PROGRAM  THE  FUNCTION  MUST 
BE  CALLED  FIVE  TIMES  PER  STEP  (PASS<1>  PASS<5>>  SO  THAT  THE 
INDEPENDENT  VARIABLE  VALUE  <  X  >  AND  THE  SOLUTION  VALUES 
( Y ( 1 ) .  .  Y ( N ) )  CAN  BE  UPDATED  USING  THE  RUNCE-KUTTA  ALGORITHM 

M  IS  THE  PASS  COUNTER  RUNGE  RETURNS  AS  ITS  VALUE  1  TO 
SIGNAL  THAT  ALL  DERIVATIVES  < THE  F(U)>  BE  EVALUATED  OR  0  TO 
SIGNAL  THAT  THE  INTEGRATION  PROCESS  FOR  THE  CURRENT  STEP  IS 
FINISHED  SAVEY(J)  IS  USED  TO  SAVE  THE  INITIAL  VALUE  OF  Y(J> 

AND  PHI(J)  IS  THE  INCREMENT  FUNCTION  FDR  THE  J(TH)  EQUATION 
AS  WRITTEN,  N  MAY  BE  NO  LARGER  THAN  50 

DIMENSION  PHI  (  50  >  .  SAVEY<5<>>,  Y(N1.  F(N) 

DATA  M/0/ 

M  =  M  +  1 

GO  TO  (  1, 2,  3,  4.  5>,  M 

.  PASS  J 
1  RUNGE  *  1 
RETURN 

°ASS  2 

?  DO  22  Ua  1 ,  N 

SAVEY ( J  >  *  Y ( J ) 

PHIUI  »  F(J) 

22  Y(U)  *  SAVEY  <  U )  ♦  0  r>*H*MU) 

X  *  X  +  0.  S*H 
RUNGE  «  1 
RETURN 


C  PASS  3 

3  DC  33  J=  1 . N 

PHI  <  J'  =  PHI  l  J)  +  2  0»-f-  t  Jj 
3:<  V(J>  *  SAVEY(J)  +  0  SHUH.il 
RUNS!:  -  1 
RETURN 
C 

f  .  PASS  4  . 

4  DO  44  J«  1  ,  N 

PHI<J)  -  PHI <  J)  +  2.  0*F <  U) 

44  Y(J)  *  SAVEY  <  J )  +  H»F<J) 

X  -  X  +  0.  5*H 
RJN3E  =  1 
RETURN 

C  PASS  5 

•;  DO  55  J  -  : .  N 

5;>  V  <  J )  =  SAVEY  <  J )  +  < PHI  <  J )  *  F(J)>*H/6.  0 
M  ■  0 
RUNCE  ■  O 
RETURN 


REAL  FUNCTION  SIHUL <N. A, X. EPS, INDIC, NRC) 

C**« FUNCTION  SIMUL  IS  TAKEN  FROM  tAPPLIED  NUMERICAL  METHODS®  BY 
CMf  H  CARNAHAN,  H  A  LUTHER.  AND  J.  0  WILKES.  PUBLISHED  BY  J.  WILEY 
C**«-  AND  SONS.  INC  1969  PACES  290  TO  291. 

C 

C  WHEN  INDIC  IS  NEGATIVE.  SIMUL  COMPUTES  THE  INVERSE  OF  THE  N  BY 

C  N  MATRIX  A  IN  PLACE.  WHEN  INDIC  IS  ZERO,  SIMUL  COMPUTES  THE 

C  N  SOLUTIONS  X<1>.  .  X  <  N  >  CORRESPONDING  TO  THE  SET  OF  LINEAR 

C  E0UA1 IONS  WITH  AUGMENTED  MATRIX  OF  COEFFICIENTS  IN  THE  N  BY 

C  N+l  ARRAY  A  AND  IN  ADDITION  COMPUTES  THE  INVERSE  OF  THE 

C  COEFFICIENT  MATRIX  IN  PLACE  AS  ABOVE.  IF  INDIC  IS  POSITIVE, 

C  THE  SET  OF  LINEAR  EQUATIONS  IS  SOLVED  BUT  THE  INVERSE  IS  NOT 

C  COMPUTED  IN  PLACE.  THE  CAUSS-JORDAN  COMPLETE  ELIMINATION  METHOD 

C  IS  EMPLOYED  WITH  THE  MAXIMUM  PIVOT  STRATEGY.  ROW  AND  COLUMN 

C  SUBSCRIPTS  OF  SUCCESSIVE  PIVOT  ELEMENTS  ARE  SAVED  IN  ORDER  IN 

C  THE  IROW  AND  JCOL  ARRAYS  RESPECTIVELY  K  IS  THE  PIVOT  COUNTER. 

C  PIVOT  THE  ALGEBRAIC  VALUE  OF  THE  PIVOT  ELEMENT,  MAX 

C  THE  NUMBER  OF  COLUMNS  JN  A  AND  DETER  THE  DETERMINANT  OF  THE 

C  COEFFICIENT  MATRIX.  THE  SOLUTIONS  ARE  COMPUTED  IN  THE  (N-t-1  )  TH 

C  COLUMN  OF  A  AND  THEN  UNSCRAMBLED  AND  PUT  IN  PROPER  ORDER  IN 

C  X ( 1  ) .  .  .  X ( N )  USING  THE  PIVOT  SUBSCRIPT  INFORMATION  AVAILABLE 

C  IN  THE  IROW  AND  JCOL  ARRAYS  THE  SIGN  OF  THE  DETERMINANT  IS 

C  ADJUSTED.  IF  NECESSARY,  BY  DETERMINING  IF  AN  ODD  OR  EVEN  NUMBER 

C  OF  PAIRWISE  INTERCHANGES  IS  REQUIRED  TO  PUT  THE  ELEMENTS  OF  THE 

C  JORD  ARRAY  IN  ASCENDING  SEQUENCE  WHERE  JORD ( IROW ( I ) )  ■  JCOL < I > 

C  IF  THE  INVERSE  IS  REQUIRED,  IT  IS  UNSCRAMBLED  IN  PLACE  USING 

C  Y<1>  Y<N>  AS  TEMPORARY  STORAGE  THE  VALUE  OF  THE  DETERMINANT 

C  IS  RETURNED  AS  THE  VALUE  OF  THE  FUNCTION.  SHOULD  THE  POTENTIAL 

C  PIVOT  OF  LAROEST  MAGNITUDE  BE  SMALLER  IN  MAGNITUDE  THAN  EPS. 

C  THE  MATRIX  IS  CONSIDERED  TO  BE  SINGULAR  AND  A  TRUE  ZERO  IS 

C  RETURNED  AS  THE  VALUE  OF  THE  FUNCTION. 

C 

DIMENSION  IROW< 15),  JCOL < 15), JORD< 15). Y( 15), AtNRC.  NRC ) , X(N) 

C 

MAX-N 

IF  (INDIC  CE  0)  MAX-N+1 

c  begin  elimination  procedure  . 

DETER  ■=•  1 
DO  IB  K« 1 , N 
KM1=K-1 
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C  SEARCH  FDR  THE  PIVOT  Ftt-MENT 

PIVOT*  0 
DO  it  1  =  1,  N 
DO  11  J**1,N 

C  SCAN  I ROW  AND  JCOL  ARRAYS  FOR  INVALID  PIVOT  SUBSCRIPTS 

IF  IK  EO  1 )  GO  TO  9 
DO  8  ISCAN= 1 . KM) 

DO  8  USCAN=1.KM1 
IF  ( I .  EQ  I  ROW  < I  SCAN ) )  GO  TO  11 
IF  ( J  EG  JCOL( JSCAN) )  GO  TO  11 
6  CONTINUE 

9  IF  (  ABStA(I.J))  LE  ABS(PIVOT))  GO  TO  11 
PIVOT=A( 1, J) 

I  ROW (  K  1  =  1 
JCOL(K)=J 

1 1  CONTINUE 

C  INSURE  THAT  SELECTED  PIVOT  IS  LARGER  THAN  EPS,  . 

IF  <  ABS(PIVOT)  GT  EPS)  GO  TO  13 
WRITE! 3, DO? ) 

SIMUL=0. 

RETURN 

C.  UPDATE  THE  DETERMINANT  VALUE  . 

13  I ROWK= 1  ROW ( K ) 

UCOLK= JCOL  <K ) 

DETCR=DETER^PIVOT 

C  NORMALIZE  PIVOT  ROW  ELEMENTS 

DO  14  ,1=1,  MAX 

14  a (  irowk,  j>--a;  IROWK,  J) /PIVOT 

C  CARRY  OUT  ELIMINATION  AND  DEVELOP  INVERSE. 

Ai IROWK, JCOLK)=l, /PIVOT 
DO  18  I=i,N 
A I  JCK--A(  I,  JCOLK) 

IF  (I  EG  IROWK)  CO  TO  18 
All,  JCOLK)  =  -A  1  ,JCK  /P  I  VO'I 
DO  17  J=1  MAX 

17  IF  (J  NE.  JCOLK)  A  (  I ,  J  )  =A  <  I  ,  J  ) -AI  v<CK*A  (  IROWK,  J  ) 

J  3  CONTINUE 

C  ORDEP  SOLUTION  VALUES  (IF  ANY)  AND  CREATE  JORD  ARRAY. 

DO  00  1=1 . N 
I  ROW 1  =  1  ROW ( 1  ) 

UCOL  I !i  JCOL  (  1  > 

JORD ( IR0W1 )=JC0L1 

00  IF  (INDIC  GE  0!  X ( JCOL I >=A< IROWI , MAX ) 

C  ADJUST  SIGN  OF  DETERMINANT  .  . 

INTCH--0 
NMi=N-l 
DO  20  1 = 1 ,  NM 1 
IP1=I+1 
DO  00  J= I P I / N 

IF  ( JORD  <  J  >  GF  JORD ( I > )  GO  TO  20 
JTEMP=JORD< J) 

JORD ( J ) = JOKP ( I ) 

JORD < 1 ) = JTEMP 
INTCH= I NTCH+ 1 
00  CONTINUE 

IF  (INTCH/0*0  NE  3NTCH)  PFTER=-DETER 

IF  INDIC  IS  POSITIVE  RETURN  WITH  RESULTS 
IF  ( INDIC  LE  0)  GO  TO  06 
SIMUL=DETER 
RETURN 

IF  INDIC  IS  NEGATIVE  OR  ZERO.  UNSCRAMBLE  THE  INVERSE 
FIRST  BY  ROWS 
06  DC  20  J= 1 , N 
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DO  27  1  =  1,  N 
I -ROW  I  =  IROW  (  I  ) 
v  COL I = JCOL  ( I  ) 

27  Y ( JCOL I ) =A ( 1  ROW  I .  J ) 

DO  20  1=1, N 
2R  A< I. J)=Y< ) ) 

C  THEN  BY  COLUMNS 

DO  30  1=1, N 
DO  29  J= 1 , N 
IROWJ=IROW< J) 

JCOL  J*- JCOL  ( J ) 

29  Y< IROWJ)=A< I-  JCOLJ) 

DO  30  J* 1 , N 

30  A< I. J)*Y< J) 

C  RETURN  FOR  INDIC  NEGATIVE  OR  ZERO 

SIMUL=DETER 
RETURN 

202  FORMAT (37H0SMALL  FIVOT  -  MATRIX  MAY  BE  SINGULAR) 

END 

C 

SUBROUTINE  RHS<Y,C> 

DIMENSION  Y  <  6  ) ,  A  <  5,  5),  B<4,4),C<4>,  DCO 
COMMON/PHYS/DCDR , EPS, UPR I . ROA, ROE, t.  ALF, TAU, U10 
COMMON/CONS/ I  DECK,  AF1,  AF2,  AF21,  BTA,  Di.A,  BT1,  DBA,  BM1,  CAM 
C OMMON / DAT 1 / SO ,  VD,  VH,  ZDECK,  ZREF, UR 
C-***  TEST  I  DECK 

C  IDECK-1,  PLUME  CENTERLINE  ABOVE  DECK  USE  OOMSC  EQUATIONS 

C  IDECK=0,  PLUME  IS  ON  THE  DECK  .  USE  TE  R IELECS  EQUATIONS 

IF  (IDECK  EQ  0)  CO  TO  100 

C***  OOMS  EQUATIONS  FOR  CAUSSIAN  PROFILES  AND  VARIABLE  DENSITY 
ST=  SIN  <  Y  <  4 )  ) 

ST2=ST*ST 
CT*  CGS< Y<4  > ) 

CT2=CT*CT 

UA-URM  < Y<6)  +  ZDECK) /ZREF  >**ALF 

UA2=UA*UA 

UACT=UA*CT 

UAST =UA<i-ST 

Y 1 2=Y ( 1 >*Y<2) 

Y33=Y  <  3 ) *Y ( 3 ) 

ROC=Y ( 1 ) /DCDR 
ROCA=ROC/ROA 

AC  1=0.  772699*UACT+0.  412442*Y<3> 

AC2=d  043144*UACT  +  0  55679*Y f 3 > ) /ROA 

AC3=  < 1  043144*UACT*UACT  +  1 .  11 3S93*UACT*Y < 3 )  +  0  363346*Y33 ) /ROA 
AM 1=2. *UACT*UACT  +  1  729329#UACT*Y ( 3 )  +  0. 490842*Y33 
AM2=Y<2>*(1.  729329*-UACT+0.  9B 1  684*Y (  3  ) «-ROCA* <  1 .  113593*UACT 
1  +-0  726672*Y  <  3 )  )  ) 

C*-**  CONSERVATION  OF  SPECIES 
A< 1, 1 >=Y<P)*AC1 
A<  1, 2)  *2.  *Y<  J  )  *AC  1 
A( 1, 3)»0.  412442*Y1? 

A< 1, 4 ) *-0. 772699*Y 1 2*UAST 
A(l, 5)=0 

C***  CONSERVATION  OF  MASS 
A ( 2,  1 ) =Y <  2 ) *AC2/DCDR 

A (2, 2) =2  *<2  *UACT  +  0.  864665*Y < 3 >  +  R0C*AC2> 

A ( 2, 3 ) =Y < 2 ) * ( 0  S6466D  +  0.  556796*R0CA> 

A (2, 4)=Y(2)*UAST*<-2.  -1. 043144*R0CA) 

A <2,  5>=2  MO  057*  ABS(Y<3)>  *  0  5#UACT*  ABS<ST>  +  UPRI) 

C**«  CONSERVATION  OF  X -MOMENTUM 
A  <  3,  1 ) =Y  <  2 ) *AC3*CT /DCDR 
A  <3,  2)  =2  *■  <  AM  1  (  AC3*R0C  >  *CT 
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A  (3  -  3 '  =CT  *AM2 

A(3,  4>=Y(2)*ST*<-6  *UACT*-UACT-3.  458658*UACT*Y < 3 > -0.  490B42*Y33 
I  -R0CA*  ( 3  129432*UACT*UACT+2  227186*UACT*Y < 3 > +0.  363346#Y33)  ) 
A <  3<  5 ) =UA*A ( 2/  5)+0  3*UA2*  ABS C ST*ST*ST ) 

C CONSERVATION  OF  Y -MOMENTUM 
A  <  4.  1 >=Y<2) *ST*AC3/DCDR 
A(4, 2)=2.  *ST*(AM1  +  AC3*R0C > 

A ( 4, 3)*>ST*AM2 

A (4, 4 )=Y(2)*(2  *UA2*CT*< 1.  -3  *ST2>+1 . 729329*UA*Y < 3) *< CT2-ST2 > 

1  +0. 490B42*Y33*CT  +  ROCA* < 1 .  0431 44*UA2*CT* < 1  -3.  *ST2 > 

2  +1  113593*Y(3)*UA*(CT2-ST2)  +  0.  363346*Y33*CT ) ) 

IF  (ST  LT  0  )  GO  TO  40 

S I  G=  -3 
GO  TO  40 
40  SIC--  1 
40  CONTINUE 

A<4  5  )  =-  3  04  3  3  44  t-ROCA^Y  (  2 )  *-0  +  SK-*0.  3HIAST  *UAST*CT 
Cum  S1NUL  USED  FOR  MATRIX  INVERSION 

OETER---SIMUL  (4,  A,  C,  EPS,  1,0) 

return 

300  CONTINUE 

Cum-  T£  RIELEeS  EQUATIONS  FOR  PLUME  DEVELOPMENT  ALONG  THE  DECK 

v 1 2- Y  < 1  >#Y(2> 

VJ3-Y< 1 ) *Y (3) 

Y23=  Y ( 2 ) *Y  <  3 ) 

C*-*1-*  MASS  CONSERVATION  EQUATION,  YL=  1 NF1 NI TY 

0(11 3-Y23 
B ( 1 , 2 ) =Y 1 3 
OCX.  3>=AF1*Y12 
B  <  1.  4 )=0 

C***  MASS  CONSERVATION  EQUATION,  YL=Y<2>*  7071 
B(2, 1 )=0  605009*Y23 
B<2,2)*0  1 76 12T*Y 1 3 
B  ( 2,  3 )  =0  600009<tY  12*AF  1 

3(2.  4  )  - -0  42898 1 9*DBA*BT  A*Y  1 3*-  (  Y  ( 2  )  *-*BMl  > 

C**H MOMENTUM  CONSERVATION  EQUAT  ION 
CALL  CSUN( Y( 1 ) , CSUMI ) 

CL=(U10*U10/AF2l  )*■(  (0  0.1  <-Y  (  3  )  )-tv*AF2) 

CR=Y )  2*‘T  All  «  C  SUM  3 
B  <  3.  1  ;=CLfY23 
3(3,  2  )  =  C  L  «•  Y 1  3 
B  <  3  3  >=CL<‘Y12*AF21 
B  (  3.  4 )=CR 

Cum  S1NUL  USED  FOR  MATRIX  INVERSION 

DETER=S1MUI  (3-  C  .  D,  EPS,  1,4) 

DO  130  1=1.3 

no  c  ( i  >=D<  i ) 

RETURN 

END 

C 

SUBROUTINE  CSUN < CA, SUM  1  ) 

C*-**-  THIS  SUBROUTINE  COMPUTES  THE  SUM  OF  A  SERIES  THAT  ARISES  IN 
C  TE  RIELESS  CONSERVATION  OF  MOMENTUM  EQUATION. 

C0MN0N/C0N2/R0T 
SUM-  1 
1  =  1 

A*ROT  *CA 
X0=-1  i-A 
X  1  =  1 

1  CONTINUE 

xi-xnxo 

i  =  i-i 

ANUN-l  /SQRT(1  t 1 ) 


X-X1*ANUM  , 

sumi-sum+x 

IF  < ABS ( X >  LT  0  000001)  CO  TO  3 
SUM-SUM 1 

IF  < I  GT.  SO)  GO  TO  3 
GO  TO  1 

2  WRITE (3.  10) 

3  RETURN 

10  FORMAT (37H  NUMBER  OF  TERMS  IN  CSUM  EXCEEDED  50) 

END 

C 

SUBROUTINE  CONT(CC. YC, Y,  IDECK,  INUM, PR. PS. SIGY. SIG2.  ZCON) 
DIMENSION  CC<9), YC(9),  Y  <  4. A) 

C***#  THIS  SUBROUTINE  COMPUTES  THE  CROSS-WIND  LOCATIONS  OF  CONTOURS 
C***#  OF  CONSTANT  CONCENTRATION************************************** 


C . VALUES  OF  CONCENTRATION  MUST  BE  SPFCIFIED  WHEN  SUBROUTINE  .  . 

C  .  INDAT  IS  CALLED  IF  NO  CONTOURS  ARE  REQUIRED.  THEN  CONTROL 
C .  IS  RETURNED  TO  THE  CALLING  PROGRAM . 


IF  (INUM  LE  0)  GO  TO  950 
DO  9  1-1,1 NUM 
9  YC ( I ) =0. 

C 

C  FIRST  TEST  TO  DECIDE  WHETHER  OOMS  OR  TE  RIELES  MODEL  WILL  BE  USED 

C 

IF  (IDECK  EG  0)  GO  TO  100 
C  OOMSe  MODEL  FOR  CONCENTRATION  PROFILE 

ZS  =  Y( 1, 6)  -  ZCON 
ZSQ  -  ZS*ZS 

YLM2  «=  1  35*Y  (  1 ,  2 )  *Y  <  1 .  P ) 

ZSA  -  ZSQ/YLM2 

IF  (ZSA.  CT.  13.  81)  GO  TO  95 

ZI  =  Y(l, 6)  +  ZCON 

ZIQ  -  ZI*Z1 

ZIA  -  Z IQ/YLM2 

DK  -  EXP ( -ZSA )  +  EXP  < -7 1  A) 

DO  90  I-l, INUM 

C***  TEST  WHETHER  CC ( I )  IS  GREATER  THAN  MAX  CONCENTRATION  AT  MAN  HEIGHT 
CRAT  =  CC< I )/(Y( 1, 1 )#DK> 

IF  (CRAT  GE  1  0)  GO  TO  90 
C***  COMPUTE  Y-LOCATION  OF  CONTOUR 
YCSQ  -  -  YLM2  *  ALOG(CRAT) 

YC ( I )  -  SORT (YCSQ) 

90  CONTINUE 
90  RETURN 
IOC  CONTINUE 

C**t>  TE  RIELEQS  MODEL  FOR  CONCENTRATION  PROFILE 
RV-J  /PR 

ZPW- ( ZCON/SI GZ  > #*PS 
IF  (ZPW. CT  13. 81 )  GO  TO  950 
DO  900  I-J , INUM 

C***  TEST  WHETHER  CC(I>  IS  GREATER  THAN  CONCENTRATION  AT  MAN  HEIGHT 
CRAT  »  CC  < I ) / <  Y ( 1 ,  1 ) *EXP ( -ZPW ) > 

IF  (CRAT  CE.  10)  CO  TO  900 
C**#  COMPUTE  Y-LOCATION  OF  CONTOUR 

YC ( I )  -  SIGY  *  ((-  ALOC(CRAT) )**RV> 

900  CONTINUE 
950  RETURN 
END 
C 

C**»*  SUBROUTINE  START  ************************************************ 


SUBROUTINE  START ( WMA, YR, WMU) 

C .  THIS  SUBROUTINE  C0MPUTF5  THE  SET  OF  INITIAL  OR  STARTING  VALUES 

C .  OF  PLUME  RADIUS.  PLUME  TRAJECTORY  AND  PLUME  ANCLE  THAT  ARE  NEED- 
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n  p  o  n  o  on  n  n  n  non  noon  on 


FOR  NUMERICAL  COMPUTATION  OF  00M5 '  MODEL  EQUATIONS . 

REAL  JAY 

DIMENSION  XOD<  10).  Z0D<  10),  PATHL  <  10), YR<6> 

COMMON/DAT  1 /SO, VD. VH,  ZDECK,  ZREF.UR 
COMMON/DAT2/PO, TO, UVENT,  CO,  UTLV,  WMG 
CDMMDN/DAT3/PVAP, DISTAN,  DISMAY,  QL,  ZCON 

COMPUTE  THE  WIND  SPEED  AT  DECK  HEIGHT  ABOVE  THE  GROUND . 

.  ZDECK  =  DECK  HEIGHT,  M . 

ZREF  =  REFERENCE  HEIGHT  FOR  WIND  SPEED  PROFILE,  M . 

UR  =  WIND  SPEED  AT  THE  REFERENCE  HEIGHT,  M/S . 

UDECK=UR*  <  ZDECK/ZREF ) **  14 

CALCULATE  THE  VAPOR  CONCENTRATION  FROM  THE  CHEMICAL  VAPOR . 

PRESSURE  AT  ONE  ATMOSPHERE,  AND  THE  VALUE  OF  ATMOSPHERIC . 

.  .  .  .  PRESSURE . 

C0=>PVAP/760 

CALCULATE  THE  MOLECULAR  WEIGHT  OF  THE  VAPOR  AND  AIR  MIXTURE 

WMG  =  MOLECULAR  WEIGHT  OF  PURE  CHEM1AL  VAPOR . 

WMA  =  MOLECULAR  WEIGHT  OF  AIR . 

WMU= ( CO* WMG )  +  <  1 -CO  >  *WMA 

.  .  .  .  CALCULATE  THE  JET  MOMENTUM  RATIO . 

UVENT  =  VELOCITY  OF  VAPOR/AIR  MIXTURE  FROM  VENT . 

JAY=  (  WMJ/WMA  )  *  (  UVENT  /UDECK  )  i-*2. 

THE  KAMOTANI  AND  GREBER  CORRELATION  IS  USED  FOR  THE  INITIAL  . 

PLUME  TRAJECTORY.  .  ( Z/D ) =AV* ( X/D > **BV . 

CALCULATE  THE  PATH  LENGTH  ALONG  THE  TRAJECTORY . 

AV=EXP<  405465+0  1 3 1 368* ALOG ( JAY > +0.  054931 *< ALOC< JAY >) **2 > 

IF  (JAY  LT  10.  )  GO  TQ  4 

BV=EXP(-0  744691-0  074 525*AL0G < JAY > > 

CO  TO  5 

4  BV=0  4 

5  CONTINUE 

R0W=0  071667+  1775* (UVENT /UDECK) 

CALCULATE  THE  VALUE  OF  PATH  LENGTH  (X/D)  THAT  IS  NEEDED  TO. 
SATISFY  THE  CURVE  LENGTH 
XOD ( 0 ) =0 
ZOD ( 0 ) =0 
PATHL  <  0 ) -0 
1=0 

10  1=1+1 

XOD  (  I  )  =  XOI><  I  - 1  )  +0  10 
ZOD  < I )»AV*XOD< I >**BV 

PATHL ( I )=PATHL( 1-1 )+SQRT( (XOD( I >-XOD< 1-1 ) ) **2  +(ZOD( I )-ZOD< 1-1 ) )* 
1*2  ) 

IF  ( PATHL  (  I  )  LT  ROW)GO  TO  10 

FXOD=XOD< 1-1  )  +  ( XOD(  I  ) - X  0  D  < 1-1 ) >*( <  ROW-PATHL ( 1-1 ) ) / <  PATHL ( I ) -PATHL 
2(1-1))) 


C  CALCULATE  THE  INITIAL  VALUE  OF  YR(5)=X  BY  MULTIPLYING  XOD  BY... 

C  . THE  VENT  DIAMETER,  VD  . 

C  ....  CALCULATE  THE  INITIAL  VALUE  OF  YR(6)«=Z  BY  MULTIPLYING  ZOD  BY... 

C  .  THE  VENT  DIAMETER,  ZD,  AND  ADDING  THE  VENT  HEIGHT  ABOVE  THE.  .  .  . 

C  . DECK,  VH . 

C  CALCULATE  THE  INITIAL  VALUE  OF  YR(4)=THETA,  THE  ANCLE  OF  THE.. 

C  . PLUME  AXIS  WITH  RESPECT  TC  THE  HORIZON,  AS  THE  INVERSE  TANGENT. 

C . OF  AV*BV*< X/D)**(BV-1  >.. . 

C  CALCULATE  THE  INITIAL  VALUE  OF  YR  <  3  >  * VELDC I TY  DEFECT,  AS . 

C  THE  VALUE  OF  UVENT-UDECK*COS ( THETA ) . 

C  CALCULATE  THE  INITIAL  VALUE  OF  YR(2)-B  . 


YR ( 5 ) =FXOD*VD 

YR ( 6 ) -AV+ ( FXQD**BV  >  *VD+VH 

YR ( 4  >«ATAN<  AV*BV*FXOD** ( BV-1  0)) 

YR ( 3 ) =UVENT-UDECK  *COS ( YR  <  4  )  ) 

YR  <  2 )“C  6597*VD/ <  SORT ( l  +1  35*UDECK*C0S < YR < 4 ) ) /UVENT ) ) 
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YR ( 1 >=C0 

RETURN 

END 

C 

C****  SUBROUTINE  1NDAT 
SUBROUTINE  INDAT 


C . THIS  SUBROUTINE  PERMITS  THE  USER  TO  FURNISH  INPUT  DATA  IN  AN 

C .  INTERACTIVE  MANNER  THE  PROGRAM  WILL  IDENTIFY  THE  VARIABLE 

C . TO  BE  SPECIFIED.  PROMPT  WITH  THE  CURRENT  DEFAULT  VALUE.  AND 

C  .  ASK  THE  USER  IF  THIS  VALUE  IS  ACCEPTED.  IF  NOT  THE  PROGRAM 

C . WILL  ACCEPT  A  NEW  VALUE  INPUT  BY  THE  USER . 


REAL  LEL.  APLACE < 10 ) , ADATE < 3 > . AOAS( 3 ) 

COMMON/DAT 1 /SO, VD. VH.  ZDECK,  ZREF, UR 
COMMON/ DAT2/P0,  TO,  UVENT,  CO,  UTl.V,  WMC 
COMMON/ DAT3/PVAP, DISTAN,  DISMAX,  QL,  ZCON 
C0MM0N/DAT4/CC1, CC2, CC3, CC4, CCS, CC6 
C0MM0N/DAT5/UEL,  LEL,  STIL, TLV,  ODOR 
COMMON /  D  AT  6  /  AP  L  AC  E , ADATE. ACAS 

C  . ENTER  NAME  OF  VESSEL,  PLACE  OR  DESCRIBING  PHRASE . 

TYPE  *,  '  ENTER  NAME  OF  VESSEL,  PLACE  OR  DESCRIBING  PHRASE  ' 

TYPE  *,  '  (UP  TO  40  CHARACTERS) 

TYPE  *,  ' 

ACCEPT  101,  <  APLACE  <  J  > . J= 1 ,  10) 

TYPE  *.  ' . 

C  ENTER  NAME  OF  CARGO  VAPOR  OR  GAS  BEING  EMITTED . 

TYPE  *,  '  ENTER  NAME  OF  CARGO  VAPOR  OR  GAS  BE I NO  EMITTED  ' 

TYPE  *,  '  (UP  TO  20  CHARACTERS)  ' 

TYPE  *,  ' 

ACCEPT  102.  (ACAS(J). J=l, 5) 

TYPE  *,  ' . 


C  LIST  DEFAULT  VALUES  FOR  VENT  GEOMETRY  AND  ASK  WHETHER  CHANGES. 

C  ARE  REQUIRED . 


5  TYPE  *,  'LIST  THE  DEFAULT  VALUES  FOR  VENT  GEOMETRY  VARIABLES  ' 

TYPE  *,  '  ' 

TYPE  *.  '  VENT  DIAMETER.  VD,  '.VD, '  METERS  ' 

TYPE  *.  '  VENT  HEIGHT.  VH.  ',VH, '  METERS  ' 

TYPE  #,  '  DECK  HEIGHT,  ZDECK,  ', ZDECK, '  METERS  ' 

TYPE  *,  '  ' 

TYPE  *.  '  DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  (Y/N>?  ' 

READ ( 5. 105) IDO 

IF (IDO  NE  1HN  AND  IDO.  NE.  1HY>C0  TO  5 
IF ( IDO  EQ  1HY ) GO  TO  10 

6  TYPE  *.  ' . ' 

C  VALUE  FOR  VENT  DIAMETER,  VD,  IN  METERS . 

TYPE  *,  '  ENTER  VALUE  FOR  VENT  DIAMETER,  VD,  IN  METERS  ' 

TYPE  *.  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  0.  305  M  (12  INCHES) 

TYPE  *.  '  0  203  M  (  B  INCHES) 

TYPE  *.  '  0  102  M  (  4  INCHES) 

CALL  PROMPT (VD) 

C . VALUE  FOR  VENT  HEIGHT,  VH,  IN  METERS . 

TYPE  *,  '  ENTER  VALUE  FOR  VENT  HEIGHT,  VH,  IN  METERS.  ' 

TYPE  *.  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  1  0  M  <  3  3  FT) 

TYPE  *,  '  4  0  M  (13.  1  FT) 

TYPE  *,  '  6  1  M  (20.0  FT),  OR  B/3  ' 

CALL  PROMPT (VH) 

C . VALUE  FOR  DECK  HEIGHT.  ZDECK,  IN  METERS . 

TYPE  *.  '  ENTER  VALUE  FOR  DECK  HEIOHT,  ZDECK,  IN  METERS  ' 

TYPE  #,  '  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 
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TYPE  *.  '  1.  0  M  ( BARGE ) 

TYPE  *.  '  6.  1  M  (SHIP) 

CALL  PROMPT  <  ZDECK ) 

GO  TO  5 
JO  CONTINUE 


C . LIST  DEFAULT  VALUES  FOR  ATMOSPHERIC  CONDITIONS  AND  ASK  . 

C  .  WHETHER  CHANGES  ARE  REQUIRED 


JO  TYPE  *,  '  LIST  THE  DEFAULT  VALUES  FOR  ATMOSPHERIC  CONDITIONS  ' 

TYPE  *,  '  ' 

TYPE  *,  '  ATMOSPHERIC  PRESSURE,  PO,  ',PO, '  MM  HG  ' 

TYPE  *,  '  ATMOSPHERIC  TEMPERATURE,  TO,  '.TO. '  DEC  R  ' 

TYPE  *,  '  WIND  SPEED,  UR/  ',UR.  '  M/S  ' 

TYPE  *.  '  REFERENCE  HEIGHT, ZREF,  ' , ZREF, '  M  ' 

TYPE  *,  '  WIND  TURBULENCE  LEVEL.  UTLV,  ' ,  UTLV,  '  7.  ' 

TYPE  v.  '  ' 

TYPE  *.  '  DO  YOU  WANT  TO  USE  ALL  OF  1 HESE  VALUES  ( Y/N)''  ' 

READ ( 5. 100) IDO 

IF ( IDO  NE  1HN  AND  IDO  NE  1HY)G0  TO  15 
I F ( IDO  EG  JHYJGO  TO  20 

Jo  TYPE  *,  ' .  . ' 

C  VALUE  FOR  ATMOSPHERIC  PRESSURE,  PO,  IN  MM  HG . 

TYPE  *,  '  ENTER  VALUE  FOR  ATMOSPHERIC  PRESSURE,  PO,  IN  MM  HG  ' 

TYPE  *,  ' 

TYPE  »,  '  TYPICAL  VALUES  ARE 

TYPE  *.  '  760.  MM  HG 

CALL  PROMPT (PO) 

C  VALUE  FOR  ATMOSPHERIC  TEMPERATURE,  TO.  IN  DEG  RANKINE . 

TYPE  *.  '  ENTER  VALUE  FOR  ATMOSPHERIC  TEMPERATURE,  TO,  IN  R  ' 

CALL  PROMPT (TO) 

C  VALUE  FOR  REFERENCE  WIND  SPEED,  UR,  IN  METERS/SEC . 

TYPE  *.  '  ENTER  VALUE  FOR  REFERENCE  WIND  SPEED,  UR,  IN  M/S  ' 
TYPE  *,  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE 

TYPE  *.  '  I. IS  M/S  <  2  5  MILE/HR) 

TYPE  '  2  24  M/S  (  5  0  MILE/HR) 

TYPE  *■  '  A  47  M/S  (10  0  MILE/HR) 

TYPE  *,  '  6  71  M/S  (15  0  MILE/HR) 

CALL  PROMPT ( UR ) 

C  VALUE  FOR  WIND  SPEED  REFERENCE  HEIGHT,  ZREF,  IN  METERS . 

TYPE  *  '  FNTER  WIND  SPEED  REFERENCE  HEICHT,  ZREF,  IN  METERS  ' 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *.  10  0  M  <32  8  FT ) 

CALL  PROMPT ( ZREF' 

C  VALUE  FOR  WIND  TURBULENCE  LEVEL,  UTLV,  IN  PERCENT . 

TYPE  *.  '  ENTER  WIND  TURBULENCE  LEVEL,  UTLV,  IN  PERCENT  ' 

TYPE  *.  ' 

TYPE  '  TYPICAL  VALUES  ARE 

TYPE  *.  207.  (FOR  ALL  WIND  SPEEDS) 

TYPE  *.  '  307  (FOR  VERY  LOW  SPEED  OR  GUSTY  CONDITIONS)  ' 

TYPE  *.  '  07  (TO  ESTIMATE  INSTANTANEOUS  PLUME  BOUNDARY)  ' 

CALL  PROMPT (UTLV) 

CO  TO  15 
20  CONTINUE 
TYPE  v,  ' 

C  LIST  DEFAULT  VALUES  FOR  °LUME  VENT  CONDITIONS . 

C  AND  ASK  WHETHER  CHANGES  ARE  REQUIRED . 

25  TYPE  *.  '  LIST  THE  DEFAULT  VALUES  FOR  PLUME  VENT  CONDITIONS  ' 

TYPE  *,  ' 

TYPE  ■*.  '  CARGO  LOADING  RATE,  QL,  ' ,  QL,  '  M*«3/HR  ' 

UVENT*  QL*0  0003536777/VD/VD 

TYPE  *.  '  VUN"  VELOCITY,  UVENT,  ' , UVENT . '  M/S  ' 

TYPE  *  '  VAPOR  MOLECULAR  WEIGHT,  WMG,  ',WMC,  ' 
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TYPE  *.  '  CARGO  VAPOR  PRESSURE.  PVAP.  '.PVAP. '  MM  HC  ' 

CO*  < (PVAP/760  >*14  7>*144‘. *WMC*16  0522/ ( 1545*TO) 

TYPE  «,  '  VENT  CONCENTRATION.  CO.  '.CO.'  KC/M**3  ' 

TYPE  *,  ' 

TYPE  *,  '  DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  (Y/N)''  ' 

READ<  5,  105) IDO 

IF ( IDO. NE.  1HN  AND  IDO  NE  1HY)C0  TO  25 
IF (IDO  EQ.  1HY )C0  TO  30 

26  TYPE  *,  ' . ' 

TYPE  *,  '  ' 

C  VALUE  FOR  LOADING  RATE  (OR  GAS  FLOW  RATE).  GL.  IN  M**3/SEC.  .  . 

TYPE  *,  '  ENTER  LOADING  RATE  (OR  GAS  VOLUMETRIC  FLOW  RATE)  ' 

TYPE  *,  '  GL  IN  METERS**3/HR  ' 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE.  .  ' 

TYPE  *,  '  794  M**3/HR  <5000  BBL/HR )  ' 

TYPE  *,  '  318  M**3/HR  (2000  BBL/HR)  ' 

TYPE  *,  '  159  M**3/HR  (1000  BBL/HR) 

TYPE  *,  '  79  M**3/HR  <  500  BBL/HR)  ' 

CALL  PROMPT <QL> 

C .  CALCULATE  VENT  VELOCITY,  UVENT,  IN  M/S . 

UVENT*  GL#0.  0003536777 / VD/ VD 

TYPE  *.  '  CALCULATED  VALUE  OF  VENT  VELOCITY  IS  '.UVENT. '  M/S  ' 

TYPE  *,  ' . ' 

TYPE  *,  ' 

C .  VALUE  FOR  VAPOR  MOLECULAR  WEIGHT . 

TYPE  *,  '  ENTER  VAPOR  MOLECULAR  WEIGHT,  WMC  ' 

TYPE  *,  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE  .  ' 

TYPE  *,  '  86  10  (VINYL  ACETATE) 

CALL  PROMPT (WMC) 

C . VALUE  FOR  VENT  CONCENTRATION,  CO,  IN  KG/M**3 . 

TYPE  *,  '  THE  VAPOR  CONCENTRATION  NEAR  THE  END  OF  CARGO  LOADING  ' 

TYPE  «.  '  MAY  APPROACH  THE  SATURATED  VAPOR  CONCENTRATION  ENTER  ' 

TYPE  «.  'THE  VALUE  OF  SATURATED  VAPOR  PRESSURE,  OR  SOME  FRACT-  ' 

TYPE  *.  'ION  THEREOF .  ' 

TYPE  *,  '  ENTER  VAPOR  PRESSURE.  PVAP,  IN  MM  HG  ' 

TYPE  *,  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE  .  ' 

TYPE  *,  '  90 .MM  HG  (VINYL  ACETATE) 

CALL  PROMPT (PVAP) 

C  CALCULATE  THE  VENT  CONCENTRATION . 

CO*  ((PVAP/760  >*14  7>*144. *WMG*16  0522/ ( 154 5*T0> 

TYPE  *,  'CALCULATED  VALUE  OF  VENT  CONCENTRATION,  CO*',  CO.  'KG/M**3 ' 

TYPE  *.  ' .  .  ' 

TYPE  *,  '  ' 

CO  TO  25 
30  CONTINUE 

C . LIST  DEFAULT  VALUES  FOR  PLUME  COMPUTATION  CONDITIONS . 

35  TYPE  *,  'LIST  THE  DEFAULT  VALUES  FOR  PLUME  COMPUTATION  ' 

TYPE  *.  '  ' 

TYPE  *,  '  PLUME  PATH  DISTANCE,  SO,  '.  SO.  '  M  ' 

TYPE  *,  '  DISTANCE  BETWEEN  PRINTOUTS,  DISTAN,  ', DISTAN,  '  M  ' 

TYPE  *,  '  MAX  DOWNWIND  DISTANCE.  DISMAX,  '.DISMAX. '  M  ' 

TYPE  *.  '  ' 

TYPE  *.  'DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  (Y/N)?  ' 

READ<  5.  105) IDO 

IF < IDO.  NE  1HN. AND.  IDO  NE.  1HY>00  TO  35 
lFy IDO  EG.  1HY1C0  TO  40 

36  TYPE  *.  ' . ' 

C . INITIAL  VALUE  FOR  PLUME  PATH  DISTANCE,  SO.  IN  METERS . 

TYPE  *.  '  ENTER  VALUE  FOR  PLUME  PATH  LENGTH.  SO.  IN  fCTERS  ' 

TYPE  *,  ' 
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TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  COM' 

CALL  PROMPT (SO) 

C  .  VALUE  FOR  DISTANCE  BETWEEN  PRINTOUTS,  D1STAN,  IN  METERS. 

TYPE  *.  '  ENTER  DISTANCE  BETWEEN  PRINTOUTS,  D1STAN,  IN  METERS  ' 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE. 

TYPE  *.  '  1  0  M 

TYPE  *,  '  5  0  M  ' 

CALL  PROMPT  <  DISTAN) 

VALUE  FOR  MAXIMUM  DISTANCE  FDR  PLUME  COMPUTATION . 

DISMAX,  IN  METERS . 

TYPE  *,  '  ENTER  MAXIMUM  DISTANCE  FOR  PLUME  COMPUTATION  ' 

TYPE  *,  '  DISMAX,  IN  METERS 

TYPE  * ,  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE 

TYPE  *.  '  10  M  (RECOMMENDED  FOR  1  M  VENTS) 

TYPE  *,  '  20  M  (RECOMMENDED  FOR  A  M  AND  B/3  VENTS)  ' 

TYPE  *,  '  ) 00  M 

CALL  PROMPT (DISMAX) 

STEPS=DISNAX /DISTAN 
IF (STEPS.  LE  50) GO  TO  35 

TYPE  *,  '-tut.*#***#****#*.*#*****************************#*** ' 

TYPE  *,  'THE  SPECIFIED  CONDITIONS  ARE  NOT  WITHIN  THE  ARRAY 
*  CAPABILITIES  ' 

TYPE  *,  '  ' 

TYPE  *,  'EITHER  DECREASE  THE  MAXIMUM  DISTANCE, DISMAX,  ' 

TYPE  *,  '  OR' 

TYPE  *,  '  INCREASE  THE  STEP  SIZE, DISTAN  ' 

TYPE  *,  '  ' 

TYPE  *,  'DISMAX/DISTAN  MUST  BE  LESS  THAN  OR  EQUAL  TO  50.  ' 

TYPE  *,  /**#*****-*****************#*********************** ' 

TYPE  *.  '  ' 

GO  TO  35 
40  CONTINUE 

C  VALUE  FOR  UEL.LEL.ST1L.TLV  AND  ODOR . 

45  TYPE  *,  '  LIST  THE  DEFAULT  VAL.UES  FOR  UEL,  LEL,  STIL,  TLV  AND  ODOR  ' 

TYPF  *.  ' 

TYPE  «,  '  UPPER  FLAMMABLE  i_IMIT,  UEL,  =  '.UEL,  '  7.  ' 

TYPE  *.  '  LOWER  FLAMMABLE  LIMIT,  LEL,  =  ' ,  LEL,  '  7.  ' 

TYPE  *,  '  SHORT  TERM  INHALATION  LIMIT,  STIL,  *  '.STIL, '  PPM  ' 

TYPE  *.  '  THRESHOLD  LIMIT  VALUE,  TLV.  =  '.TLV, '  PPM  ' 

TYPE  *.  '  ODOR  THRESHOLD,  ODOR,  =  ',ODOR. '  PPM  ' 

TYPE  *,  ' 

TYPE  *.  '  DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  (Y/N)?  ' 

READ ( 5, 105) IDO 

IF ( IDO  NE.  1HN  AND.  IDO  NE  1HY)G0  TO  45 
IF< IDO  EQ.  1HY >G0  TO  50 

46  TYPE  *,  ' . ' 

C  . VALUE  FOR  UPPER  FLAMMABLE  LIMIT,  UEL,  IN  PERCENT . 

TYPE  *-  '  ENTER  VALUE  FOR  UEL  IN  PERCENT  BY  VOLUME  ' 

TYPE  *,  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  13  4  7.  (VINYL  ACETATE) 

TYPE  *.  '  (  IF  THE  UEL  VALUE  IS  NOT  KNOWN,  ENTER  100.0)  ' 

CALL  PROMPT (UEL) 

C  ASSIGN  VALUE  OF  UEL  TO  CC3  . 

CC3  *  UEL *10000 

C  .  .  VAi_UE  FOR  LOWER  FLAMMABLE  LIMIT,  LEL,  IN  PERCENT . 

TYPE  *.  '  ENTER  VALUE  FOR  LEL  IN  PERCENT  BY  VOLUME  ' 

TYPE  *.  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE 

TYPE  *.  '  2  6  7.  (VINYL  ACETATE) 
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TYPE  *,  '  (  IF  THE  LEL  VALUE  IS  NOT  KNOWN,  ENTER  IOO. 0> 

CALL  PROMPT (LEL) 

ASSIGN  VALUE  OF  LEL  TO  CCA . 

CC4  -  LEL*10000 

VALUE  FOR  SHORT  TERM  INHALATION  LIMIT.  STIL,  IN  PPM... 


TYPE  *. 

TYPE  *, 

TYPE  *.  '  TYPICAL  VALUES  ARE  .  .  ' 

TYPE  *.  '  20  PPM  (VINYL  ACETATE) 

TYPE  *,  '  (IF  A  VALUE  FOR  STIL  IS  NOT  KNOWN.  E 

CALL  PROMPT (STIL  > 

ASSIGN  VALUE  OF  STIL  TO  CC5 . 

CC5  =  STIL 

VALUE  FOR  THRESHOLD  LIMIT  VALUE,  TLV,  IN  PPM 
TYPE  *.  '  ENTER  VALUE  FOR  TLV  IN  PPM  ' 


ENTER  VALUE  FOR  STIL  IN  PPM 


ENTER  1000000 


TYPE  *.  '  TYPICAL  VALUES  ARE  . 

TYPE  *,  '  10  PPM  < VINY1  ACETATE) 

TYPE  v,  '  ( IF  A  VALUE  FOR  TLV  IS  NOT  KNOWN.  I 
CALL  PROMPT (TLV) 

C  ASSIGN  VALUE  OF  TLV  TO  CC6 . 

CC6  =  TLV 

C  VALUE  FOR  THE  ODOR  THRESHOLD.  ODOR.  IN  PPM 

TYPE  *.  '  ENTER  VALUE  FOR  ODOR  IN  PPM  ' 


ENTER  1000000 


TYPE  *. 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *.  '  O  12  PPM  (VINYL  ACETATE) 

TYPE  *,  '  (IF  A  VALUE  FOR*  ODOR  IS  NOT  KNOWN,  ENTER  1000000  > 

CALL  PROMPT (ODOR) 

ASSIGN  VALUE  OF  ODOR  TO  CC2.  ... 

CC2  -  ODOR 
CO  TO  45 
50  CONTINUE 

LIST  DEFAULT  VALUES  FOR  CONCENTRATION  CONTOURS . 

55  TYPE  *,  '  LIST  THE  DEFAULT  VALUES  FOR  CONCENTRATION  CONTOURS 


IS  NOT  KNOWN,  ENTER  1000000 


55  TYPE 
TYPE 


type  *, 

'  CC1 

m 

'.  CCl 

j  TYPE 

'  CC2 

K 

'  ■  CC2 

TYPE  *. 

'  CC2 

tz 

' ,  CC3 

TYPE  *. 

'  CCA 

at 

CCA 

TYPE  *, 

'  CC5 

z 

CC5 

TYPE  *. 

'  CC6 

m 

' .  CC6 

PPM  (USER  ASSIGNED  VALUE)  ' 

PPM  (USUALLY  THE  ODOR  THRESHOLD) 

PPM  (USUALLY  THE  UEL )  ' 

PPM  (USUALLY  THE  LEL)  ' 

PPM  (USUALLY  THE  STIL)  ' 

PPM  (USUALLY  THE  TLV)  ' 


TYPE  *, 
TYPE  *, 


TYPE  *,  '  DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  < 

READ( 5, 105) IDO 

IF( IDO.  NE  1HN  AND  IDO  NE  1HY)C0  TO  55 
IF ( IDO.  EG  1HY )G0  TO  60 

56  TYPE  *,  ' . 

. VALUES  FOR  CONCENTRATION  CONTOURS . 

TYPE  ».  '  ENTER  VALUES  FOR  CC1  THROUGH  CC6  IN  PPM 

CALL  PROMPT ( CC 1 ) 

CALL  PROMPT (CC2) 

CALL  PROMPT (CC3) 

CALl.  PROMPT  (CC4) 

CALL  PROMPT (CC5) 

CALL  PROMPT (CC6) 

GO  TO  55 
6C  CONTINUE 
10J  FORMAT (10AA) 

102  FORMAT (5A4) 

105  FORMAT (A2) 

RETURN 

END 
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C *«-<-*  SUBROUTINE  PROMPT  ********************************************** 

SUBROUTINE  PROMPT ( VALUE ) 

DATA  IY,  IN/1, 0/ 

TYPE  *,  ' 

10  TYPE  *»  '  THE  CURRENT  DEFAULT  VALUE  IS  *  '.VALUE 

TYPE  *,  '  DO  YOU  WANT  TO  USE  THIS  DEFAULT  VALUE  (Y/N>?  ' 

READ ( 5. 100) IDO 
100  FORMAT (AO) 

IF < IDO.  NE.  1HN  AND  IDO  NE  1HY)G0  TO  10 
IF ( IDO.  EQ.  lHYJCO  TO  20 
lfc  TYPE  *.  '  TYPE  IN  NEW  VALUE  ' 

ACCEPT  #,  VALUE 

20  TYPE  *,  ' . ' 

TYPE  ' 

RETURN 

END 


APPENDIX  C 


PROGRAM  LISTING  FOR  THE  ONDEK3 
PLUME  DISPERSION  MODEL 


Main  Program 

ONDEK 

Integer  Function 

HAMING 

Integer  Function 

RUNGE 

Real  Function 

SIMUL 

Subroutine 

RHS 

Subroutine 

CSUM 

Subroutine 

CONT 

Subroutine 

START 

Subroutine 

INDAT 

Subroutine 

PROMPT 

Subroutine 

PLOTS 

C****  PROGRAM  ONDEK  *******»»**********»**•*•*#*••«*«•*•**•**»*»***»*»»* 

c  this  program  computes  the  trajectory  and  concentration  distri- 

c  bution  of  buoyant  plumes  of  chemical  vapor  and  air  that  are 

c  EMITTED  INTO  AN  ATMOSPHERIC  BOUNDARY  LAYER  THE  COMPUTER  PRO- 

C  GRAM  IS  BASED  UPON  OOMS '  METHOD  (REFERENCE.  G.  OOMS.  'A  NEW 

C  METHOD  FOR  THE  CALCULATION  OF  THE  PLUME  PATH  OF  OASES  EMITTED 

C  BY  A  STACK'.  ATMOSPHERIC  ENVIRONMENT ,  VOL  6.  1972)  AND  TE 

C  RIELE'S  METHOD  (REFERENCE.  P  H  M.  TE  RIELE.  'ATMOSPHERIC  DISPER- 

C  SION  OF  HEAVY  GASES  EMITTED  AT  OR  NEAR  OROUND  LEVELS'.  2ND 

C  INTERNATIONAL  SYMPOSIUM  ON  LOSS  PREVENTION  AND  SAFETY  PROMOTION 

C  IN  THE  PROCESS  INDUSTRIES,  SEPT.  1977) 

C 

C .  LIST  OF  INPUT  VARIABLES . 

C  SO  *  STARTING  VALUE  FOR  PLUME  PATH  TRAJECTORY.  M 

C  H  =  INTEGRATION  STEP  SIZE,  M 

C  SMAX  -  TERMINATION  VALUE  OF  PLUME  PATH  INTEGRATION.  M 

C  I  NT  ■  NUMBER  OF  INTEGRATIONS  BETWEEN  PRINT-OUTS 

C  YR(1>  =  INITIAL  VALUE  OF  CONCENTRATION,  KG/M**3 

C  YR<2>  =  INITIAL  VALUE  OF  PLUME  CHARACTERISTIC  RADIUS.  M 

C  YR ( 3 )  =  INITIAL  VALUE  OF  PLUME  VELOCITY  -  WIND  SPEED  COMPONENT.  M/S 

C  YR<4)  *  INITIAL  VALUE  OF  PLUME  ANCLE  WITH  RESPECT  TO  HORIZON,  RADIANS 

C  YR ( 5 )  -  INITIAL  VALUE  OF  X,  HORIZONTAL  DISTANCE  FROM  VENT,  M 

C  Yti<6)  -  INITIAL  VALUE  OF  Y.  VERTICAL  HEIGHT  ABOVE  DECK,  M 

C  WMJ  -  MOLECULAR  WEIGHT  OF  EMITTED  GAS 

C  PO  =  ATMOSPHERIC  PRESSURE,  MM  HG 

C  TO  <=  ATMOSPHERIC  TEMPERATURE,  DEC  RANKINE 

C  UR  «=  REFERENCE  VELOCITY  AT  ZREF,  M/S 

C  ZREF  =  REFERENCE  HEIGHT,  M 

C  CMF  «  MASS  FRACTION  OF  TRACER  CAS  IN  EMITTED  GAS 

C  TLV  -  TURBULENCE  LEVEL 

C  ZCON  «  CONCENTRATION  MEASLRE  HEIGHT,  M 

C  IC  *  NUMBER  OF  CONCENTRATION  VALUES  FOR  CONTOUR  LINES,  MAX=fc 

C  C(IJ  =  CONCENTRATION  VALUES  FOR  CONTOURS 
C  YRUF  -  SURFACE  ROUGHNESS  PARAMETER.  CENTIMETERS 
C 

INTEGER  COUNT,  RUNGE,  NAMING 

REAL  APLACE (10), ADATE  <  3 ) , ACLASS  <  5 ) .  ACAS  <  5 ) ,  LEL.  LELM 
DIMENSION  TE  <  6 ) , YR  <  6 ) ,  FR (6), Y  <  4 , 6). F<3, 6),  YRS(6>,  C(6>, YC<6> 
DIMENSION  YRSAVE  <  6 ) , C0N(30. 5). C0NB(30. 5), DIS ( 30 ) ,  DISB ( 30 > .  YAXI5<5> 
DIMENSION  CONC ( 30, 6 ) ,  DISC < 30 ) ,  YCONC < 6 ) 

COMMON/PHYS/DC DR, EPS. UPR1 , ROA, ROE. C, ALF, TAU. U10 
COMMON/CONS/ 1 DECK, AF1,  AF2, AF21, BTA. DLA, BT1.  DBA.  BM1.  GAM 
C0MM0N/C0N2/R0T 

COMMON/DAT1/SO, VD,  VH,  ZDECK, ZREF. UR 
C0MM0N/DAT2/P0-  TO.  UVENT,  CO,  UTLV,  WMG 
COMMON /DAT3/PVAP, DISTAN, DISMAX,  QL,  ZCON 
C0MM0N/DAT4/CC 1 , CCS.  CC3, CC4, CC5, CC6 
COMMON /DAT 5/UEL, LEL,  STEL, TLV,  ODOR 
C0MM0N/DAT6/ APLACE .  ADATE.  ACAS 
C 

C***»  SPECIFICATION  OF  DEFAULT  VALUES  FOR  INPUT  DATA  ****************** 
DATA  SO.  VD.  VH,  ZDECK.  PO/O  0, 0  S03,  1.  0.  1.  0.  760.  / 

DATA  TO.  ZREF,  UR,  UTLV,  WMG/520.  ,  10.  .  2.  24,  20.  ,  86.  10/ 

DATA  QL. DISMAX, DISTAN, WMA, PVAP/159.  0.  10  ,1  O, 28  97, 90  / 

DATA  ZCON,  IC/1  68,6/ 

DATA  CC1, CC2, CC3, CC4,  CC5.  CC6/1000, 0.  12,  134000. 26000,  20.  10/ 

DATA  UEL,  LEL.  STEL, TLV,  ODOR/13  4,  2  6,  20.  ,  10.  ,  0  12/ 

C 

C****  SPECIFICATION  OF  DATA  FILES  FOR  PLOTS  *************************** 
DATA  XAXIS/ 'X(M)  '/ 

DATA  YAX  IS/  'TLV.  ',  'UEL  ',  'LEl.  ',  'STEL'.  'CONC'/ 

DATA  YCONC  /  '  1C  '.  'ODOR',  'UEL.  '.  'LEL.  ',  'STEL'.  'TLV.  '/ 
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no  on  o  no 


****  OPEN  OUTPUT  FILE  FOR  PRINTING  ************************ '********** 
OPENIUNIT-3. FILE«= 'RESONDEK  DAT ', STATUS® 'NEW ' > 

TYPE  *,  '**********  PROGRAM  ONDEK  **********  ' 

TYPE  *,  'THIS  PROGRAM  COMPUTES  THE  TRAJECTORY  AND  CONCENTRATION  ' 
TYPE  *,  'DISTRIBUTION  OF  BUOYANT  PLUMES  OF  CHEMICAL  VAPOR  AND  AIR' 
TYPE  *,  'THAT  ARE  EMITTED  INTO  THE  AIR  ABOVE  A  SHIP  OR  BARGE  DECK' 
TYPE  *,  ' 

TYPE  *,  'PREPARE  TO  ENTER  INPUT  DATA  REQUIRED  BY  THE  PROGRAM  ' 

TYPE  *.  ' 

. ENTER  TODAY'S  DATE . 

TYPE  *.  '  ENTER  TODAY*S  DATE  (UP  TO  12  CHARACTERS)  ' 

TYPE  *,  ' 

ACCEPT  600,  ( ADATE  <  J ) ,  J=  1 . 3  > 

TYPE  *.  '.  . ' 

1  CONTINUE 

****  CALL  SUBROUTINE  INDAT  TO  ENTER  DATA  INTERACTIVELY  *************** 
CALL  INDAT 

****  INITIALIZE  VARIABLES  AND  ASSIGN  VALUES  TO  CONSTANTS  ************** 
G=  9.  80665 
X*  0  0 
DISTA=  0  0 

C  STEP  SIZE  SET  EQUAL  TO  1/5TH  OF  THE  VENT  DIAMETER . 

H*=  VD/5  0 

EPS=  0  0000000001 

C  MASS  FRACTION  OF  GAS  CONSTITUENT  SET  EQUAL  TO  1 . 

CMF=1  0 
I  DECK-  1 
IA=  0 

ALF  =  O  H 

GAM  =  1  18597434 

DLA  =  0  176877 

BTA  =  0  911784 

YRUF  =  1  000 

CALL  START ( WMA, YR, WMJ) 

UPR I =  3  0*UTLV*UR / 1 00 
UA=UR 

DCDR=WMJ/ (WNJ-2B  96) 

ROA= ( < P0/760  ) *  1 4  7 )*144  *28  96*16  0522/ ( 1545  *T0> 

ROE=ROA*WMJ/28  96 
ROVAP-  ROA*WMC/r.  96 

C  STORE  VALUES  OF  CONTOUR  CONCENTRATIONS  FOR  PRINT  OUT . 

C(l)=  CC1*R0VAP/ 1000000 
C ( 2 ) =  CC2*R0VAP/ 1000000 
C ( 3 ) =  CC3*R0VAP/ 1000000. 

C  (  4  )  *=  CC4*R0VAP/  1000000. 

C ( 5 ) “  CC5*R0VAP / 1000000. 

C(6)=  CC6*R0VAP / 1 000000. 

UELM=  UEL*ROVAP / 1 00 
LELM=  LEL  *RQVAP / 1 00 . 

STELM=STEL*ROVAP / 1 000000. 

TLVM=  TLV  *ROVAP/ 1000000. 

ODORM=  0D3R*R0VAP/ 1000000. 

TRACON=YR< 1 ) *CMF 
IDECK  =  1 
C0NH1=0 
XCON=YR  <  5  > 

C 

C****  INITIALIZE  VARIABLES  FOR  PLOT  FILES  ***************************** 

Cl  00=  ALOG(ROVAP) 

CM  =  ROVAP/ 1000000 
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CUEL*  ALOC(UELM) 

CLEL*  ALOG(LELM) 

CSTEL»ALOC(STELM) 

CTLV-  ALOG(TLVM) 

C  COMPUTE  THE  WIND  SHEAR  STRESS,  TAUO . 

C  THE  EQUATION  USED  MAY  BE  ACCURATE  ONLY  FOR  NEUTRAL 

C  ATMOSPHERIC  STABILITY  CONDITIONS . 

U10«UR*<  < 10.  +ZDECK ) /ZREF ) #*ALF 
ZP«  ALOC< 1000  /YRUF ) 

TAU  -0  16*U10*U10/(ZP*ZP) 

C  COMPUTE  THE  CONSTANTS  THAT  ARE  NEEDED  TO  INTEGRATE.  .  .  . 

C  THE  EQUATIONS  FOR  TE  RIELE'S  PLUME  MODEL.  . 

AF 1=1. +ALF 
AF2-2*ALF 
AF21 =1  +AF2 
BT1  =  1  /BTA 
DBA=DL  A**BT 1 
BM1  =  1 .  -BTJ 

ROT= ( 1  -ROA/ROE ) /ROA 
TAUO=TAU*ROA 


C . SET  GCON  =  SORT < PI > *AF21 / ( GAM*2  ) . 

c  THIS  VARIABLE  IS  USED  IN  THE  INITIAL  VALUE  OF  SIGMAZ 

GC0N=0  88£>2269255*AF21  /GAM 

C  PRINT  THE  HEADING  AND  THE  INITIAL  CONDITIONS . 


WRITEO,  710)  <  APLACE  <  J  > ,  U=l,  10),  (ADATEC J),  J*l,  3) 

WR I  TEC 3, 71 1 )  PO, TO,  UR,  ZREF, ALF, UTLV 

WRITEO,  712)  VD,  VH,  ZDECK,  (AGASCJ),  U*l.  5),  WMJ,  YR ( 1  ) ,  QL,  UVENT 

WR I TE  <  3, 7 1 9 )  UELN,  LELM,  STELM,  TLVM, ODORM 

WRITEO,  713)  (CCU),  J=l,  IC),  ZCON 

WRITEO,  714)  H,  DISMAX 

WRITEO,  715) 


C  INITIALIZE  THE  STEP  COUNTER  AND  THE  FIRST  ROW  OF  THE  Y  MATRIX. 

C  ■  SET  THE  INITIAL  TRUNCATION  ERRORS  TO  ZERO . 

COUNT  a  0 
DO  4 05  U*=  J  ,  6 
TE ( J )  =  0 


405  Y(4,J)»  YR  <  J ) 

TYPE  *.  '  COMPUTING  PLUME  TRAJECTORY  AND  DISPERSION  ' 

C  CALL  RUNGE  TO  INTEGRATE  ACROSS  THE  FIRST  THREE  STEPS . 

C  RUNGE  IS  USED  AS  A  STARTER  FOR  HAMING . 

4  10  IF  (RUNGE (6,  YR, FR ,  X,  H)  NE.  1 )  GO  TO  420 
CALL  RHSCYR, YR5) 

DO  415  K=l,4 
415  FR  <  K ) *YRS  <  K ) 

FR  <  5 ) =  COS ( YR ( 4 ) ) 

FR(6)<=  S I N <  YR  <  4  )  ) 

CO  TO  410 

C  PUT  THE  APPROPRIATE  INITIAL  VALUES  IN  THE  Y  AND  F  MATRICES . 

420  COUNT  «  COUNT  +  1 
I  SUB  «=  4  -  COUNT 
DO  425  J«=l , 6 
425  Y ( I SUB , J )  -  YR  <  J ) 

CALL  RHS(YR.  YRS) 

DO  430  K»l, 4 
430  F< ISUB, K)-YRS(K) 

F ( I  SUB , 5>  =  COS  <  YR ( 4 ) ) 

F<  I  SUB,  6  )=■  SIN<  YR  <  4  )  ) 

C 

C****  IF  X.  GT  DISTA,  PRINT  VALUES  OF  THE  PLUME  VARIABLES  ************* 
435  CONTINUE 

IF  (COUNT.  LE  3)  CO  TO  450 

IF  ( Y< 1 ,  5 >  LE  DISTA)  CO  TO  4  50 

TRACON  ■  Y ( 1 , 1 )*CMP 


C . COMPUTE  CONH 1 .  CONCENTRATION  AT  BREATHING  HEIGHT,  2CON . 

B2= Y  (  1, 2>*-Y<  I,  2 )  *  1  35 

CRl=Y( 1, 6 ) -ZCON 

C  2 1 =CR 1 *CRl/B2 

ip  cczi.gt  13  en  GO  TO  440 

CR2=Y( 1 , 6) +ZCON 

CZ2=CR2*CR;_VB2 

XCON=Y(l, 5) 

CONHl=Y< 1,  1)*CMP*<  EXP (— CZ 1 )  +  EXP(-CZ2>> 

GO  TO  445 
440  XCON  =  Y< 1,  5) 

CONH 1=0 

445  CONTINUE 

C  COMPUTE  PLUME  CENTERLINE  CONCENTRATION  WITH  THE  EFFECT  OF  AN.  .  . 

C  IMAGE  PLANE  AT  GROUND  LEVEL  .  . 

C23=  4  *Y< 1 . 6>*Y( 1, 6) /B2 
IF  ( C23  GT  13  81)  GO  TO  446 
YCL=  Y  < 1 .  1 >  * (  1 .  +EXP  <  — CZ3 ) ) 

GO  TO  447 

446  YCL=  Y  < 1 .  1  ) 

447  CONTINUE 

CALL  CONTCC, YC, Y, 1, IC, 0  ,0  ,0  ,0.  .ZCON) 

IF  (COUNT  GT  3)  WRITE<3,716)  X , Y C 1 ,  5 ) , Y(1 , 6 ) ,  Y< 1 ,  1 ) ,  C0NH1 ,  XCON, 
1<YC(I),I  =  ’,6).Y(1,2).Y<1,3>,Y(1,4) 

I A=  1A+1 

DISC IA )=  Y(l, 5) 

DISBC 1 A  >  =Y ( 1 ,  5) 

DISCC I A ) =Y  < 1 , 5  > 

C  ASSIGN  VALUES  TO  CONC  ARRAY . . 

DO  440  11=1,6 
CONC< IA, II )  =  YC (II) 

44B  CONTINUE 

CONC IA, 5 ) =  ALOG ( YCL ) 

IF  (CONH1.LT  CM)  CQNH1 =CM 
CONBC IA, 5 ) = ALOG ( CONH 1 ) 

CONC IA, 2 ) =  CUEL 
CONBC IA, 2)=CUEL 
CONI IA, 3 ) =  CLEL 
CONBC IA,  3 ) =CLEL 
CON  (  IA.  4  )  =•  CSTEL 
CONB( I  A. 4)=CSTEL 
CONC IA, 1 >=  CTLV 
CONBC I  A,  1 )=CTLV 
DISTA=  DISTA  +  DISTAN 

C  IF  X  EXCEEDS  DISMAX,  TERMINATE  THE  INTEGRATION  . 

450  IF  (X  GT  DJSMAX-H/2  )  GO  TO  560 

C  CALL  RUNGE  OR  HAMING  TO  INTEGRATE  ACROSS  THE  NEXT  STEP . 

IF  (COUNT  lT  3)  GO  TO  410 

C  ...  CALL  HAMING . 

455  M  =  HAMINGC6  Y, F, X, H,  TE) 

DO  460  K= 1  4 
460  YR  <  K  >  =Y ( 1 , K  > 

CALL  RHSCYR.YRS) 

DO  465  K=1 , 4 
465  FC 1,  K)=YRS(K) 

F  (  1,  5>=  COS  (  Y  (  1,4)) 

F  <  1,  6  >  =  SINCYC 1.4)) 

IF  CM  EG.  i)  GO  TO  455 

C  INCREMENT  STEP  COUNTER  AND  CONTINUE  INTEGRATION . 

COUNT  *  COUNT  +■  1 
IF  CYC  1,6)  LT  0  )  GO  TO  500 
GO  TO  435 
500  CONTINUE 
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an  n  ooo  n  o  r>  o  o  o  o  no 


****  TRANSITION  TO  TE  RIELE'S  METHOD  ******************************** 

I DECK  *  0 

. FOR  INITIAL  CONDITIONS.  SET . 

. Y(l.  l)-2*Yd.  1).  .  .  CA=2*C  ON  THE  PLUME  CENTERLINE . 

. Y( 1. 2)*1.  161895*Y< 1,2).  .  .  SICMAY-LAMDA*PLUME  WIDTH . 

. Y<1.  3>-YR(2)*GC0N.  .  .  SIGMAZ-SIOMAY*GCON . 

YR  (  1  )  *  2*Y  d ,  1  ) 

YR  <  2)  -1.  161B95*Y<1,  2) 

YR ( 3 )  *YR(2)*GC0N 
WRITE ( 3, 717) 

COUNT  -  0 
DO  505  J*l.  3 
TE(J)  =  0 
50 f.  Y  (  4,  J )  -  YR<  J) 

CALL  RUNGE  TO  INTEGRATE  ACROSS  THE  FIRST  THREE  STEPS . 

5 J  0  IF  <RUNGE<3,  YR,  FR,  X.  H)  NE.  1)  CO  TO  520 
CALL  RHS(YR.YRS) 

DC  515  K=l,  3 
515  FR(K)*YRS(K) 

CO  TO  510 

. PUT  THE  APPROPRIATE  INITIAL  VALUES  IN  THE  Y  AND  F  MATRICES.  . 

520  COUNT  *  COUNT  +  1 
I SUB  -  4  -  COUNT 
DO  525  J=1 , 3 
525  YdSUB.  J)  =  YR  <  J ) 

CALL  RHS(YR.YRS) 

DO  530  K=1 , 3 
530  F  <  I  SUB .  K )  <=  YRS  <  K  ) 

. PRINT  SOLUTIONS  WHEN  X  EXCEEDS  DISTA . 

535  IF  (X  LE.  DISTA)  CO  TO  540 
IF  (COUNT  LE  3)  CO  TO  540 

CALL  C0NT1C,  YC,  Y,  0,  IC,  2.  ,  ALF21,  Yd,  2).  Y<  1,  3).  ZCON) 

IF  (COUNT  CT  3)  WRITE<3,71B)  X, ( Y d , J > , U=1 , 3) , ( YC < K > , K» 1 , 6 ) 

IF  X  EXCEEDS  DISMAX.  TERMINATE  THE  INTEGRATION . 

540  IF  (X  GT  DISMAX-H/2.  >  CO  TO  560 

CALL  RUNGE  OR  HAMINC  TO  INTEGRATE  ACROSS  THE  NEXT  STEP 
IF  (  COUNT  LT  3)  GO  TO  510 

.  CALL  HAMING  . 

545  M*  HAMING < 3,  Y, F. X, H, TE > 

DO  550  K-l ,  3 
550  YR  <  K )  «*Y  <  1 ,  K ) 

CALL  RHS(YR.YRS) 

DO  555  K*1 , 3 
555  Fd,  K)=VRS(K) 

IF  ( M  EQ.  1 )  CO  TO  545 

.  INCREMENT  STEP  COUNTER  AND  CONTINUE  INTEGRATION . 

COUNT  *  COUNT  +  1 
CO  TO  535 
560  CONTINUE 


****  FORMATS  FOR  INPUT  STATEMENTS 
600  FORMAT (3A4) 


C****  FORMATS  FOR  OUTPUT  STATEMENTS  ************************************ 

710  FORMAT (1H1.  9H  TITLE*  , 10A4, 8H  DATE*  ,5A4.//> 

71 1  FORMATOOHO  METEOROLOGICAL  C0NDITI0NS//7X,  22H0  BAROMETRIC  PRESS 
1URE-, F7  3,  25H  MM  HC  AIR  TEMPERATURE*, F5.  1 , 6H  DEC  R/7X,  22H0  AVER 
2 AGE  WIND  SPEED*, F6  2, 25H  M/S  AT  REFERENCE  HEIGHT*.  F7.  2,  2H  M/ 

3  7X.22H0  WIND  EXPONENT*. F5.  2/ 

4  7X.22H0  TURBULENCE  LEVEL*, F6  2// > 

712  FORMAT (28H  VAPOR  VENTING  CONDITIONS// 

1  7X.22H0  VENT  DIAMF1ER*. F6  2, 7H  METERS  ,/ 


C-5 


3  7X, 22H0 

4  7X.22H0 
D  7X ,  22H0 


VENT  HEIGHT*, F6.  2,  23H  METERS  ABOVE  THE  DECK  - 
DECK  HE  I GHT= , F 6  2. 24H  METERS  ABOVE  THE  WATER 
EMITTED  VAPOR*, 2X. 5A4, / 

MOLECULAR  WEIGHT=,F6  2,  24H  OF  GAS  AND  AIR  MIXTURE 


6  7X.22H0  VENT  CONCENTRATION*, ElO.  3>  1  OH  KG/<M**3>  ,  // 

7  7X.22H0  VENTING  FLOWRATE*,  F6  0,  10H  (M**3)/HR,  / 

9  7X.22H0  VENTING  VELOC ITY=, F6  2-  6H  M/SEC  ,  //  ) 

3  FORMAT ( 6 1H  VALUES  OF  CONCENTRATION  CHOSEN  FOR  CONCENTRATION  CON 


1  TOURS//, 

2  7X>  10H0 

Cl 

=, ElO  3, 

10H 

<KG/M**3> 

,  / 

D 

wJ 

7X, 10H0 

C2 

=  ,  ElO  3, 

10H 

(KG/M*#3> 

,  / 

4 

7X. 10H0 

C3 

=, ElO  3, 

10H 

<KG/M**3) 

,  / 

7X, 10HO 

C4 

=  ,  ElO  3, 

JOH 

(KG/M**3) 

,  / 

6 

7  X ,  10H0 

CS 

*,  ElO  3, 

10H 

<KG/M**3) 

,  / 

7 

7  > .  10H0 

C6 

=, ElO  3, 

10H 

(KG/M**3> 

,  / 

Cj 

V  ■ 

7  X ,  29H0 

PREDICTED  FOR 

A  HEIGHT  OF, 

F6  3 

9  7X.2RH0  PREDICTED  FOR  A  HEIGHT  OF,  F6  3  ,  24H  METERS  ABOVE  DECK 

'/LEVEL  //) 

714  FORMATOOH  NUMERICAL  INTEGRATION  DATA//7X,  14H0  STEP  SIZE=,F7 
14.38H  METERS,  MAXIMUM  DOWNWIND  DISTANCE*, F7. 2, 7H  METERS/) 

7 )  t<  FORMAT ( 1H1 ,  56H  BEGIN  PLUME  COMPUTATION  THROUGH  THE  AIR  ABOVE  THE 
1  DECK/ 1  HO, 4H  S,  7X,  3HXCL, 6X. 3HZCL. 7X,  3HCCL,  BX.  5HCZC0N , 6X. 4HXC0N. 3X 

2.60HYC1  YC2  YC3  YC4  YC 5  YC6  B  U*  THETA/1 

3H  , 120H  METERS  METERS  METERS  KG/M**3  KG/M**3  METERS 

4 METERS  METERS  METERS  METERS  METERS  METERS  METERS  M/S  RADIAN/) 

716  FORMAT </F7.  2, 2(2X, F7  3), 2<2X, ElO  4),  IX, F7  3, 7< IX, F6  3). 2( IX, F6  3) ) 
7  J  7  FORMAT ( / /43H  CONTINUE  PLUME  COMPUTATION  ALONG  THE  DECK//98H  X (MET 
1ERS)  CA ( KG/M3 )  S I GMAY  <  M )  SIGMAZ(M)  Y1(M)  Y2(M)  Y3!M>  Y 

24  <  M )  YS <  M )  Y6(M)  ) 

713  FORMAT <F7  2, 3X, F9  6, 1 X, F7. 3, 7 < 3X, F7  3 ) ) 

719  FORMAT (63H  VALUES  OF  CONCENTRATION  FOR  FLAMMABILITY  AND  HEALTH 

1  HAZARDS  ,  // 

2  7X.35H0  UPPER  FLAMMABLE  LIMIT  ( UEL )  =, ElO. 3. 10H  KG/(M**3>  ,/ 

3  7X, 35H0  LOWER  FLAMMABLE  LIMIT  (LEL)  =, ElO  3, 10H  KG/<M*#3>  ,/ 

4  7X.35H0  5H0RT  TERM  EXPOSURE  LIMIT  ( STEL >*,  ElO  3,  10H  KG/(M**3)  ,/ 

5  7X.35H0  THRESHOLD  LIMIT  VALUE  (TLV)  =,E10  3. 10H  KG/CM**3>  ,/ 

6  7X.35H0  ODOR  THRESHOLD  (DDOR)  =, ElO  3, 10H  KG/(M**3>  //) 

720  FORMAT  <  7H  AT  X*  , F6  3,  16H  METERS,  AND  Y*  ,  F6.  3, 37H  METERS,  THE  PR 
1 EDICTED  CONCENTRATION*,  ElO  6,  9H  KC/M**3  ) 

724  FORMAT!/) 

70S  FORMAT <66H  GRAPH  OF  PLUME  CENTERLINE  CONCENTRATION  VERSUS  DOWNWIND 
1  DISTANCE  ) 

726  FORMAT !55H  0  ORDINATE  IS  PROPORTIONAL  TO  LOG ( CONCENTRATION ) 

1  /  55H  0  ABSCISSA  IS  PROPORTIONAL  TO  DISTANCE 

2  //  55H  TABLE  OF  CORRESPONDING  VALUES 

:<  /  55H  VALUE  X( METERS)  YCKG/M*»3>  Y(PPM)  ) 

730  FORMAT  (  4  X ,  F4  1.10X.F6  1.7X.E10  3,4X,F9  0) 

731  F0RMAT(75H  GRAPH  OF  VAPOR  CONCENTRATION  AT  MAN  BREATHING  HEIGHT  VS 
1  DOWNWIND  DISTANCE  ) 

732  FORMAT (77H  GRAPH  OF  VAPOR  CONCENTRATION  CONTOURS  AT  MAN  BREATHING 
1  HEIGHT  ABOVE  THE  DECK  ) 

733  FORMAT! 7 1H  0  ORDINATE  IS  PROPORTIONAL  TO  DISTANCE  IN  THE  CROSS- 

1  WIND  DIRECTION  ,  / 

2  71H  0  ABSCISSA  IS  PROPORTIONAL  TO  DISTANCE  IN  THE  DOWNST 

3REAM  DIRECT  ION  ,  // 

4  71 H  TABLE  OF  CORRESPONDING  VALUES  CONCENTRA 

5TI0N  CONTOURS  ,  / 

6  72h  VALUE  X( METERS)  Y< METERS)  SYMBOL  ! 

7PPM)  !KG/M**3)  ) 

734  F0RMATI4X,  F4  1,  10X,  F6  1,8X,F6  1.  8X.  A4,  F10  2.  ElO  3) 

BOO  CONTINUE 

TYPE  *,  '  PREPARING  PLOTS  OF  CONCENTRATION  DISTRIBUTION  ' 

IMA*  I A 

CMN*  AL0G1R0VAP/ 1000000  ) 


X (METERS) 


Y  <  METERS  > 


CONCENTRA 


SYMBOL 


PREPARING  PLOTS  OF  CONCENTRATION  DISTRIBUTION  ' 


1 


c .  SET  VALUES  FOR  YMAX  AND  vmjn  for  THIS  CALL  TO  PLOTS . 

YMAX-CIOO 

YMIN-CMN 

CALL  PLOTS < DIS) 30.  IMA. XAXIS. CON. 5. 5. YAXIS.  YMAX,  YMIN) 

WRITE (3, 724  > 

WRITE!  3, 720) 

WRITE (3, 726) 

DO  320  1=0,  10 
ACOR-  1*0.  J 

XPR  -  DIS(l)  +  ACOR*<DISMAX-DIS( 1 ) > 

CXP  -  CMN  +  AC0R*<C100-CMN> 

CPR  =  EXP ( CXP ) 

CPPM-  CPR *1000000.  /ROVAP 
WRITEO,  730)  ACOR,  XPR,  CPR,  CPPM 
020  CONTINUE 

C  SET  VALUES  FOR  YMAX  AND  YMIN  FOR  THIS  CALL  TO  PLOTS . 

YM4»C100 

YMIN-CMN 

CALL  PLOTS < DISD , 30,  IMA,  XAXIS, CONB, 5, 5. YAXIS, YMAX,  YMIN) 

WRITEO,  724  ) 

WRITEO,  73)  ) 

WRITEO,  726) 

DO  830  1=0,  10 
ACOR-  1*0  1 

XPR  -  D I SB  < 1 )  +  ACOR*<DISMAX-DISB< 1 ) ) 

CXP  *  CMN  +  ACOR* ( C 1 OO-CMN ) 

CPR  =  EXP < CXP) 

CPPM-  CPR *1 000000. /ROVAP 
WRITEO,  730)  ACOR,  XPR,  CPR.  CPPM 
830  CONTINUE 

C  SET  VALUES  FOR  YMAX  AND  YMIN  FOR  THIS  CALL  TO  PLOTS . 

YMAX— 0.  5*DI SMAX 
YMIN-O.  0 

CALL  PLOTS < D 1 5C> 30.  IMA, XAXIS. CONC,  6.  6.  YCONC,  YMAX.  YMJN) 

WRITEO.  724) 

WRITEO,  732) 

WRITEO.  733) 

DO  B40  1*0,  f- 
ACOR-  1*0  2 

XPR  «  DISC ( 1 )  +  ACOR* < DISMAX-DISC ( 1 > ) 

YPR  -  0.  5*AC0R*(DISMAX) 

IP  =  I  +  1 

CPPM-  C< IP >*1000000.  /ROVAP 

WRITEO.  734)  ACOR,  XPR,  YPR,  YCONC  <  IP),  CPPM,  C(  IP) 

P40  CONTINUE 

841  TYPE  *,  '  DO  YOU  WANT  TO  RUN  ANOTHER  CASE  <Y, N)?  ' 

READ<  5, 850) IDO 
8t)0  FORMAT <A2> 

IF (  IDO.  NE.  i HN.  AND.  IDO.  NE.  1HY1C0  TO  841 
IF ( IDO  EG.  IHNJGO  TO  1000 

C . PREPARE  TO  RUN  ANOTHER  CASE . 

TYPE  *.  ' 

TYPE  *,  '  PREPARE  TO  ENTER  INPUT  DATA  REQUIRED  BY  THc,  PROGRAM  ' 

TYPE  *,  ' 

00  TO  1 
1000  CONTINUE 
END 
C 

INTEOER  FUNCTION  HAM I NO (  N, Y, F, X, h, TE > 

C***F UNCTION  HAMINO  IS  TAKEN  FROM  6APPLIED  NUMERICAL  METHODS*  BY 
C***  B  CARNAHAN,  H  A  LUTHER,  AND  J  0  WILKES,  PUBLISHED  BY  J  WILEY 
C***  AND  SONS,  INC.  1969.  PACES  401  TO  402. 

C 


07 


r>  o  o  *■>  r>  o  n  o  r>  o  r>  o  n  i>  o  r>  r>  ri  o  o  o  o  o  r>  ri  r> 


C  HAMING  INPLEMENTS  HAMMI NG@S  PREDICTOR -CORRECTOR  ALGORITHM  TO 

C  SOLVE  N  SIMULTANEOUS  FIRST-ORDER  ORDINARY  DIFFERENTIAL 

C  EQUATIONS  X  IS  THE  INDEPENDENT  VAR  I ABLE  AND  H  IS  THE 

C  INTEGRATION  STEPSIZE  THE  ROUTINE  MUST  BE  CALLED  TWICE  TOR 

C  INTEGRATION  ACROSS  EACH  STEP  ON  THE  FIRST  CALL.  IT  IS  ASSUMED 

C  THAT  THE  SOLUTION  VALUES  AND  DERIVATIVE  VALUES  FOR  THL  N 

C  EQUATIONS  ARE  STORED  IN  THE  FIRST  N  COLUMNS  OF  THE  FIRST 

C  FOUR  ROWS  OF  THE  Y  MATRIX  AND  THE  FIRST  THREE  ROWS  OF  THE  F 

C  MATRIX  RESPECTIVELY  THE  ROUINE  COMPUTES  THE  N  PREDICTED 

C  SOLUTIONS  YPRED(J).  INCREMENTS  X  BY  H  AND  PUSHES  ALL 

C  VALUES  IN  THE  Y  AND  F  MATRICES  DOWN  ONE  ROW.  THE  PREDICTED 

C  SOLUTIONS  YPRED(U)  ARE  MODIFIED.  USING  THE  TRUNCATION  ERROR 

C  ESTIMATES  TEIJ)  FROM  THE  PREVIOUS  STEP.  AND  SAVED  IN  THE  FIRST 

ROW  OF  THE  Y  MATRIX  HAMING  RETURNS  TO  THE  CALLING  PROGRAM  WITH 
THE  VALUE  1  TC  INDICATE  THAT  ALL  DERIVATIVES  SHOULD  BE  COMPUTED 
AND  STORED  IN  THE  FIRST  ROW  OF  THE  F  ARRAY  BEFORE  THE  SECOND 
CALL  IS  MADE  ON  HAM  INC  ON  THE  SECOND  ENTRY  TO  THE  FUNCTION 
(DETERMINED  BY  THE  LOGICAL  VARIABLE  PRED),  HAMING  USES  THE 
HAMMING  CORRECTOR  TO  COMPUTE  NEW  SOLUTION  ESTIMATES.  ESTIMATES 
THE  TRUNCATION  ERRORS  TE<J>  FOR  THE  CURRENT  STEP.  IMPROVES 
THE  CORRECTED  SOLUTIONS  USING  THE  NEW  TRUNCATION  ERROR 
ESTIMATES.  SAVES  THE  IMPROVED  SOLUTIONS  IN  THE  FIRST  ROW  OF  THE 

Y  MATRIX.  AND  RETURNS  TO  THE  CALLING  PROGRAM  WITH  A  VALUE  2  TO 
INDICATE  COMPLETION  OF  ONE  FULL  INTEGRATION  STEP 
LOGICAL  P RED 

DIMENSION  YPRED < 20),  TE ( N ) .  Y(4,N>,  F  <  3, N ) 

DATA  PRED  /  TRUE  t 

IS  CALL  FOR  PREDICTOR  OR  CORRECTOR  SECTION  ... 

IF  <  NOT  PRED )  GO  TO  A 

PREDICTOR  SECTION  OF  HAMING 

COMPUTE  PREDICTED  Y (Ji  VALUES  AT  NEXT  POINT 
DO  1  vi=  I  •  N 

1  YPRED  (  J  >  =  Y(4,J)  +  4  *HM2.  «F<  1,  J)  -  F(2,J)  +  2.  *F  <  3,  J )  )  /3. 

UPDATE  IHt  Y  AND  F  TABLES 
DO  2  U= 1 . n 
DO  2  K5= 1 , 3 
K  =  I>  -  KD 

Y  <  K. U)  =  Y ( K-i , J) 

2  IF  <K  LT  4)  F ( K, U )  =  F(K-l.U) 

MODIFY  PREDICTED  Y<U>  VALUES  USING  THE  TRUNCATION  ERROR 
.  ESTIMATES  FROM  THE  PREVIOUS  STEP  INCREMENT  X  VALUE 
DO  3  »l» 1 . N 

3  Y(l.J)  =  YPRED <U)  +  112  *TE(U>/9. 

X  =  X  +  H 

SET  PRED  AND  REQUEST  UPDATED  DERIVATIVE  VALUES  . 

PRED  =  FALSE 
HAMING  =  1 
RETURN 

CORRECTOR  SECTION  OF  HAMING 

COMPUTE  CORRECTED  AND  IMPROVED  VALUES  OF  THE  Y(J>  AND  SAVE 
.  TRUNCATION  ERROR  ESTIMATES  FOR  THE  CURRENT  STEP  . 

4  DO  5  >1,N 

Yd.Jl  =  (9  *Y<2,  U)-Y<4,  J)  +  3.  *H*  <F  ( 1 ,  J  >+2.  *F  <2.  J)—F  ( 3,  U)  )  >  /B. 
TE<J>  *  9  *(YC  J)  -  YPRED(J)  1/121 . 

&  Y(l.U)  -  Y(  1.  UJ  -  TE  ( U ) 

SET  P RED  AND  RETURN  WITH  SOLUTIONS  FOR  CURRENT  STEP  . 


C-8 


c 

c 


on  n  n  nr-  n  n  n  n 


PRED  *=  .  TRUE. 

HAMJNG  =  2 
RETURN 
END 
C 

INTEGER  FUNCTION  RUNGE ( N. Y , F ,  X,  H ) 

C*-*»‘FUNCTION  RUNGE  IS  TAKEN  FROM  ©APPLIED  NUMERICAL  METHODS©  PV 
C**4.  B.  CARNAHAN,  H  A.  LUTHER.  AND  J.  0.  WILKES.  PUBLISHED  BY  U  WILEY 
C***-  AND  SONS.  INC  1969  PAGES  374  TO  375. 

C 

C  THE  FUNCTION  RUNGE  EMPLOYS  THE  FOURTH-ORDER  RUNGE-KUTTA  METHOD 

C  WITH  KUTTA©S  COEFFICIENTS  TO  INTEGRATE  A  SYSTEM  OF  N  SIMULTAN- 

C  EOUS  FIRST  ORDER  ORDINARY  DIFFERENTIAL  EQUATIONS  F ( J >«DY < J) /DX, 

C  (J*l. 2.  ..  .  , N).  ACROSS  ONE  STEP  OF  LENGTH  H  IN  THE  INDEPENDENT 

C  VARIABLE  X,  SUBJECT  TO  INITIAL  CONDITIONS  Y(J>,  < 1 , 2,  .  .  .  ,  N ) 

C  EACH  F  <  J ) .  THE  DERIVATIVE  OF  v<j>,  MUST  BE  COMPUTED  FOUR  TIMES 

C  PER  INTEGRATION  STEP  BY  THE  CALLING  PROGRAM.  THE  FUNCTION  MUST 

C  BE  CALLED  FIVE  TIMES  PER  STEP  ( PASS ( 1 ) . .  PASS ( 5 ) >  SO  THAT  THE 

C  INDEPENDENT  VARIABLE  VALUE  (X)  AND  THE  SOLUTION  VALUES 

C  ( Y ( 1 )  Y ( N ) )  CAN  BE  UPDATED  USING  THE  RUNGE-KUTTA  ALGORITHM 

C  M  IS  THE  PASS  COUNTER  RUNGE  RETURNS  AS  ITS  VALUE  1  TO 

C  SIGNAL  THAT  ALL  DERIVATIVES  (THE  F<J>>  BE  EVALUATED  OR  0  TO 

C  SIGNAL  THAT  THE  INTEGRATION  PROCESS  FOR  THE  CURRENT  STEP  IS 

C  FINISHED  SAVEY(J)  IS  USED  TO  SAVE  THE  INITIAL  VALUE  OF  Y(J) 

C  AND  PHI ( J )  IS  THE  INCREMENT  FUNCTION  FOR  THE  J(TH)  EG JATION. 

C  AS  WRITTEN,  N  MAY  BE  NO  LARGER  THAN  50 

C 

DIMENSION  PHI (50).  SAVEY<50),  YCN),  FCN) 

DATA  M/0/ 

C 

M  «  M  +  1 

CO  TO  <  1, 2,  3,  4,  5),  M 
PASS  ) 

J  RUNGE  ■  J 
RETURN 

PASS  2  . 

2  DO  22  1 , N 

SAVEY(J)  >=  Y(J) 

PHI ( J)  *  F ( J) 

22  Y(J)  =  SAVEY(J)  +  0.  5*H*F<J> 

X  *  X  O  5*H 
R'JNGF  »  1 
RETURN 

PASS  3  . 

3  DO  33  J=  l.N 
PHI(J)  =  PHI <  J>  +  2  0*F <  J) 

33  Y ( J )  =  SAVEY(J)  +  0.  5*H*F(J) 

RUNGE  ■  J 
RETURN 

.  PASS  4  . 

4  DO  44  J»  ) , N 
PHI(J)  -  PHI <  J )  +  2  0*F  <  J) 

44  Y(J)  ■  SAVEY(J)  +  H*F(J) 

X  -  X  ♦  0  5*H 
RUNGE  ■  1 
RETURN 

PASS  D 

5  DO  55  J  =  J . N 


C-9 


n  n  r» 


55  Y(J>  =  SAVEY'J)  +  ( PHI  (  J )  +  F'.J))H-l/6  0 
M  =  0 
RUNGE  =  0 
RETURN 
END 
C 

REAL  FUNCTION  S1MUL (N. A,  X. EPS.  INDIC. NRC) 

C***-FUNCT  ION  SIMUL  IS  TAKEN  FROM  ©APPLIED  NUMERICAL  METHODS©  BY 
C «*■**•  b  CARNAHAN,  H  A  LUTHER,  AND  J  0.  WILKES,  PUBLISHED  BY  J.  WILEY 
C***  AND  SONS,  INC  1969  PAGES  290  TO  291. 

( 

WHEN  INDIC  IS  NEGATIVE,  SIMUL  COMPUTES  THE  INVERSE  OF  THE  N  BY 
N  MATRIX  A  IN  PLACE  WHEN  INDIC  IS  ZERO,  SIMUL  COMPUTES  THE 
N  SOLUTIONS  XU)  X ( N >  CORRESPONDING  TO  THE  SET  OF  LINEAR 
EGUATIONS  WITH  AUGMENTED  MATRIX  OF  COEFFICIENTS  IN  THE  N  BY 
N+l  ARRAY  A  AMD  IN  ADDITION  COMPUTES  THE  INVERSE  OF  THE 
COEFFICIENT  MATRIX  IN  PLACE  AS  ABOVE  IF  INDIC  IS  POSITIVE, 

THE  5ET  OF  LINEAR  EQUATIONS  IS  SOLVED  BUT  THE  INVERSE  IS  NOT 
COMPUTED  IN  PLACE  THE  GAUSS-JORDAN  COMPLETE  ELIMINATION  METHOD 
C  IS  EMPLOYED  WITH  THE  MAXIMUM  PIVOT  STRATEGY.  ROW  AND  COLUMN 

C  SUBSCRIPTS  OF  SUCCESSIVE  PIVOT  ELEMENTS  ARE  SAVED  IN  ORDER  IN 

C  THE  IROW  AND  UCOL  ARRAYS  RESPECTIVELY.  K  IS  THE  PIVOT  COUNTER, 

C  PJV07  THE  ALGEBRAIC  VALUE  OF  THE  PIV07  ELEMENT,  MAX 

C  THE  NUMBER  OF  COLUMNS  IN  A  AND  DETER  THE  DETERMINANT  OF  THE 

C  COEFFICIENT  MATRIX  THE  SOLUTIONS  ARE  COMPUTED  IN  THE  (N+l )  TH 

C  COLUMN  Oc  A  AND  THEN  UNSCRAMBLED  AND  PUT  IN  PROPER  ORDER  IN 

C  X ( 1 )  X(N>  USING  THE  PIVOT  SUBSCRIPT  INFORMATION  AVAILABLE 

C  IN  THE  IROW  AND  UCOL  ARRAYS  THE  SIGN  OF  THE  DETERMINANT  IS 

C  ADJUSTED,  IF  NECESSARY,  BY  DETERMINING  IF  AN  ODD  OR  EVEN  NUMBER 

C  OF  PAIRWISE  INTERCHANGES  IS  REQUIRED  TO  PUT  THE  ELEMENTS  OF  THE 

C  JORD  ARRAY  IN  ASCENDING  SEQUENCE  WHERE  JORD( IROWt I ) >  =  JCOL <1 > 

C  IF  THE  INVERSE  IS  REQUIRED,  IT  IS  UNSCRAMBLED  IN  PLACE  USING 

C  YU)  Y ( N )  AS  TEMPORARY  STORAGE  THE  VALUE  OF  THE  DETERMINANT 

C  IS  RETURNED  AS  THE  VALUE  OF  THE  FUNCTION  SHOULD  THE  POTENTIAL 

C  PIVOT  OF  LARGEST  MAGNITUDE  BE  SMALLER  IN  MAGNITUDE  THAN  EPS, 

C  THE  MATRIX  IS  CONSIDERED  TO  BE  SINGULAR  AND  A  TRUE  ZERO  IS 

C  RETURNED  AS  THE  VALUE  OF  THE  FUNCTION 

C 

DIMENSION  IROW  (  15),  JCOL  (  15>.  JORD<  15).  YU  5),  A  (  NRC ,  NRC  )  ,  X<N> 

C 


MAX=N 

IF  (  INDIC  GE  0)  MAX=NU 

C  BEGIN  ELIMINATION  PROCEDURE 

DETER- J 
DO  18  K= 1 , N 
KM  1 =K- 1 

C  SEARCH  FOR  THE  PIVOT  ELEMENT 

P 1 VOT-O. 

DO  11  1=1, N 

DO  11  J=1,N 

C  SCAN  IROW  AND  JCOL  ARRAYS  FOR  INVALID  PIVOT  SUBSCRIPTS 

IF  (K.  EQ  1 '  GO  TO  9 
DO  B  I SCAN* 1,  KM 1 
DO  B  JSCAN=1,KM1 
IF  <  I.  EQ  IROWUSCAN)  )  GO  TO  11 
IF  (J  EQ  UCOL (JSC AN))  GO  TO  II 

8  CONTINUE 

9  IF  (  ABS  ( A<  I .  J )  >  .  i_£  ABS  (  P  I V07  )  )  GO  TO  11 
p I VOT  =A ( 1 ,  J ) 

IROW  <  K )  =  I 
JCOL  <  K ) = J 
II  CONTINUE 

C  INSURE  THAT  SELECTED  PIVOT  IS  LARGER  THAN  EPS. 


C-10 


n  o 


IF  <  ABSIPIVOT)  CT  EPS)  GO  TO  13 
WRITE <3. 203) 

SIMUL=0 

RETURN 

C  UPDATE  THE  DETERMINANT  VALUE.  . 

13  IROWK=IROW<K) 

JCOLK* JCOL  (K> 

DETER=DETER*PIVOT 

C  NORMALIZE  PIVOT  ROW  ELEMENTS.  .  . 

DO  14  J-l.  MAX 

14  A< IROWK,  J)=A< IROWK,  J) /PIVOT 

C  CARRY  OUT  ELIMINATION  AND  DEVELOP  INVERSE.  .  . 

A< IROWK,  JCOLK ) =1 .  /PIVOT 
DO  18  1=1. N 
AIJCK-AI I,  JCOLK) 

IF  (I  EG  IROWK)  GO  TO  10 
A< I. JCOLK)  =  -A1JCK/PIV0T 
DO  17  J= 1 , MAX 

17  IF  (J.  NE  JCOLK)  A< I. J)=A< I, J)-AIJCK*A< IROWK.  J) 

10  CONTINUE 

C  ORDER  SOLUTION  VALUES  (IF  ANY)  AND  CREATE  JORD  ARRAY 

DO  20  1=1. N 
IROWT  =  IROW ( 1 ) 

JCOLI=JCOL< 1 ) 

JORD ( I ROW I )=JCOLI 

20  IF  (INDIC  SCO)  X  < JCOLI )=A( IROW I. MAX  > 

C  ADJUST  SIGN  OF  DETERMINANT 

INTCH- 0 
NM1 =N- 1 
DO  22  1*1.  NM 1 
IP1  =  H  1 
DO  22  J= I P 1 , N 

IF  ( JORD ( J )  GE  JORD(I))  GO  TO  32 
JTEMP= JORD  < J ) 

JORD ( J ) * JORD ( I ) 

JORD ( I )=JTEMP 
INTCH=INTCH+1 
32  CONTINUE 

IF  ( INTCH/ 2*2  NE  INTCH)  DETER=-DETER 
C  IF  INDIC  IS  POSITIVE  RETURN  WITH  RESULTS.  .  . 

IF  < INDIC.  LE.  0)  GO  TO  26 
SIMUL=DETER 
RETURN 

IF  INDIC  IS  NEGATIVE  OR  ZERO,  UNSCRAMBLE  THE  INVERSE 
FIRST  BY  ROWS.  .  . 

26  DO  28  J=i ,  N 
DO  27  1=1, N 
I ROW I = I ROW ( I ) 

JCOLl=JCOL  < I ) 

27  Y< JCOLI )*A( IROWI. J) 

DO  28  1*1, N 

28  A< I, J)*Y( 1 ) 

C  ...  THEN  BY  COLUMNS.  .  . 

DO  30  1*1.  N 
DO  29  J-l, N 
I ROW J= IROW ( J ) 

JCOL J= JCOL  <  J ) 

29  Y( IROWJ)*A< I, JCOLJ) 

DO  30  J*1 , N 

30  A< I.  J)=Y< J) 

C  RETURN  FOR  INDIC  NEGATIVE  OR  ZERO  . 

SIMUL-DETER 

RETURN 
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202  FORMAT ( 37H0SMALL  PIVOT  -  MATRIX  MAY  BF  SINGULAR) 

END 

C 

SUBROUTINE  KHS(Y,C) 

DIMENSION  Y(6),A(5,  5>.D(4,4),C(4),D<3> 

COMMON /PHYS/DCDR, EPS. UPR  3 . ROA, ROE, C, ALF, TAU, UlO 
COMMON/CONS/ IDECK, AF1 ,  AF2,  AF21,  BTA, DLA. BT 1 ,  DBA,  BM1.  CAM 
COMMON /DAT 1 /SO,  VD,  VH,  ZDECK,  ZREF,  UR 
C***  TEST  IDECK 

C  IDECK=1,  PLUME  CENTERLINE  ABOVE  DECK.  .  .  USE  OOMS*  EQUATIONS 

C  IDECK=0,  PLUME  IS  ON  THE  DECK.  .  .  USE  TE  RIELE&S  EQUATIONS 

IF  (IDECK  EG  0)  GO  TO  100 

C**-*  00 MS  EQUATIONS  FOR  GAUSSIAN  PROFILES  AND  VARIABLE  DENSITY 

ST  =  S I N  (  Y  (  4  )  ) 

ST2=3T*ST 
CT=  COS( Y(4 )  ) 

CT2=CT*CT 

UA=UR*  <  <  Y  (  6  )  +ZDECK  )  /ZREF  )  **ALF 

ua2=ua*ua 

UACT=UA*CT 

UAST=UA<-ST 

Y12=Y( 1 )*Y<2) 

Y33=Y(3)*Y(3) 

ROC=Y< 1 ) /DCDR 
ROC A=ROC /ROA 

AC  1=0  772699*UACT+0  412442*Y(3) 

AC2= ( 1  043144*UACT  +  0  55679*Y ( 3 ) ) /ROA 

AC3= ( 1  043144*UACT*UACT  +  1  1 1 3593*UACT*Y ( 3 >  +  0  363346*Y33>/R0A 

AM1=2  *UACT*UACT  +  1 .  729329»UACT*Y ( 3 )  +  0  490B42*Y33 
AM2=Y  ( 2  >  *( I .  72R329*UACT+0  9SI  6B4*Y  (  3  )  +RDCA*  (  1  113593*UACT 
1  +0  726692*Y  <  3 )  ) ) 

C**t  CONSERVATION  OF  SPECIES 
A(  1  ,  1  )  =  Y ( 2 )  *AC  J 
A ( 1, 2 ) =2  *Y< 1 >*AC1 
A ( 1 , 3 ) =0  412442*Y12 
A ( 1 ■ 4 ' =— 0  772699* Y 1 2*UAST 
Ak  1 , 5)=0 

C  CONSERVATION  OF  MASS 

A, 2  I >=Y(2)*AC2/DCDR 

A<2, 2i=2  *(2  *UACT  +  0  B64665*Y<3>  +  R0C*AC2> 

AC2, 3)=Y(2)*(0  864665  +  0  556796*R0CA> 

A (2, 4 ) = Y  <  2 ) *UAST  *  < -2  -1  043144*R0CA) 

A ( 2.  5 ) =2  t(0  057*  AB5 ( Y  <  3 ) )  +  0,  5*UACT*  ABS(ST)  +  UPR1 ) 

C**<  CONSERVATION  OF  X-MOMENTUM 
A ( 3. 1 >=Y(2)*AC3*CT/DCDR 
A ( 3, 2 ) =2  * ( AMI  +  AC3*R0C)*CT 
A <3. 3 ) =CT*AN2 

A ( 3, 4 ) =Y ( 2 > *ST * ( -6  *UACT*UACT-3  45B658*UACT*Y( 3>-0  490B42*Y33 
1  -ROCA*  (  3  129432*UACT*UACT+2  227 186*UACT*Y ( 3 >+0.  363346*Y33> > 
A(3. 5)“UA*A(2. 5>+0  3*UA2*  AB5 < ST*ST*ST ) 

C***  CONSERVATION  OF  Y-MOMENTUM 
A ( 4 , 1 )=Y(2>*ST*AC3/DCDR 
A<4, 2)*2  *ST*< AMI  +  AC3*R0C > 

A (4, 3 ) =ST  *AM2 

A ( 4 , 4 ) =Y ( 2 ) * ( 2  *UA2*CT* < 1  -3  *ST2>«-1.  729329*UA*Y(3>*(CT2-ST2> 

1  +0.  490842*Y33*CT  +  ROCA* < 1 . 0431 44*UA2*CT* ( I .  -3.  *ST2 ) 

2  +1  1 1 3593*Y ( 3 ) *UA*  <  CT2-ST2 )  +  0  363346*Y33*CT ) ) 

IF  (ST  LT  0.  >  GO  TO  40 

SIG*-1 
GO  TO  45 
40  SI0=1 
45  CONTINUE 

A  (  4,  5  )  =  -l  0431  44*R0CA«  Y  ( 2  )  *G  ■*  SIG*0.  3*UAST*UAST*CT 
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C*+*  SIMUL  USED  FOR  MATRIX  INVERSION 
DETER =S I MUI.  (  4 ,  A,  C.  EPS.  1.  f.) 

RETURN 
100  CONTINUE 

C**»  TE  RIELESS  EQUATIONS  FOR  PLUME  DEVELOPMENT  ALONC-'  THE  DECK 
Y12=Y< 1 )*Y<2) 

Y 1 3=Y  <  1  )*YCO 
Y23=Y<2)*Y<3> 

C***  MASS  CONSERVATION  EQUATION.  YL= INFINITY 
B  f  1.  1 )=Y23 
B< 1. 2>=Y13 
B( 1. 3 ) »AF 1 #Y 1 2 
B<1. 4>=0. 

C**#  MASS  CONSERVATION  EQUATION,  YL  =  Y < 2 > *.  7071 
B<2, 1  >=0.  605009*Y23 
B<2,  2  )  *0.  1 761 27*Y  1  3 
B  ( 2,  3  )  *0  60!3009*Y12*AF1 

B  <  2, 4>=-0  42B881 9*DBA*BTA#Y13*  <  Y  <  2  >  **BM1 ) 

C**»*  MOMENTUM  CONSERVATION  EQUATION 
CALL  CSUM(Y< 1 ),  CSUM1 ) 

CL= <  U10#U1 0/AF21 >*<  <0.  01*Y(3>  >**AF2> 

CR=Y12*TAU*CSUM1 
B ( 3,  1  )«CL*Y23 
B ( 3. 2)=CL*Y13 
B(3. 3 )«CL*Y12*AF21 
B<3, 4>=CR 

C**t  SIMUL  USED  FOR  MATRIX  INVERSION 

DETER=SIMUL  <3,  B,  D,  EPS,  1.4) 

DO  1 10  1  =  1 , 3 
110  C ( I >=D< I ) 

RETURN 

END 

C 

SUBROUTINE  CSUM<CA, SUM1 > 

C**o  THIS  SUBROUTINE  COMPUTES  THE  SUM  OF  A  SERIES  THAT  ARISES  IN 
C  TE  RIELESS  CONSERVATION  OF  MOMENTUM  EQUATION. 

C0MM0N/C0N2/R0T 
SUM=  1 
1  =  1 

A=ROT*CA 
XO—1  *A 
Xl»l. 

1  CONTINUE 
X1*X1*X0 
1*1+1 

ANUM= 1  /SORT  < 1 .  #1  ) 

X*X 1 *ANUM 
SUM1=SUM+X 

IF  <ABS(X)  LT  0.  000001 )  GO  TO  3 
SUM*SUM 1 

IF  < I  GT  50)  CO  TO  2 
GO  TO  1 

2  WRITE <3,  10) 

3  RETURN 

10  FORMAT (37H  NUMBER  OF  TERMS  IN  CSUM  EXCEEDED  50) 

END 

C 

SUBROUTINE  CONTICC, YC. Y,  IDECK.  INUM,  PR, PS,  SICY,  SIG2,  ZCON) 
DIMENSION  CC<9), YC(9), Y(4, 6) 

C**#*  THIS  SUBROUTINE  COMPUTES  THE  CROSS-WIND  LOCATIONS  OF  CONTOURS 
C**#*  OF  CONSTANT  CONCENTRATION************************************** 
C  VALUES  OF  CONCENTRATION  MUST  BE  SPFCJFIED  WHEN  SUBROUTINE.  .  . 

C  INDAT  IS  CALLED  IF  NO  CONTOURS  ARE  REQUIRED.  THEN  CONTROL.  . 
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C .  IS  RETURNED  TO  THE  CALLING  PROGRAM . 

IF  (INUM  LE  0)  GO  TO  950 
DO  9  1*1. INUM 
9  YC  C I ) =0 
C 

FIRST  TEST  TO  DECIDE  WHETHER  OOMS  OR  TE  RIELES  MODEL  WILL  BE  USED 

IF  < IDECK.  EG  0)  GO  TO  100 

OOMSS  MODEL  FOR  CONCENTRATION  PROFILE 
ZS  =  Y(l^)  -  ZCDN 
ZSG  =  ZS*ZS 

YLM2  =  1  35* Y<  1, 2>*Y<  1, 2) 

ZSA  -  ZSG/YLM2 

IF  ( ZSA  GT.  1381)  GO  TO  95 

ZI  =  Y( 1 • A)  +  ZCON 

Z IQ  =  ZI*ZI 

Z  I A  =  ZI0/YLM2 

DK  *  EXP ( -ZSA )  +  EXP ( -7 1 A ) 

DO  90  1*1. INUM 

***-  TEST  WHETHER  CC ( I )  IS  GREATER  THAN  MAX  CONCENTRATION  AT  MAN  HEIGHT 
CRAT  =  CC< I >/< Y< 1, 1 )*DK) 

IF  (CRAT  GE  1  0)  GO  TO  90 
***  COMPUTE  Y-LOCAT ION  OF  CONTOUR 
YCSG  =  -  YLM2  *  ALOG(CRAT) 

YC(I)  =  SORT (YCSG) 

90  CONTINUE 
95  RETURN 
100  CONTINUE 

**#  TE  RIELEeS  MODEL  FOR  CONCENTRATION  PROFILE 

RV*1  /PR 

ZPW* ( ZCON/SIGZ )**PS 

IF  (ZPW  GT  13  81)  GO  TO  950 

DO  900  1=) . INUM 

***  TEST  WHETHER  CC ( I)  IS  GREATER  THAN  CONCENTRATION  AT  MAN  HEIGHT 
CRAT  =  CC ( I ) / ( Y< 1.  1 )*EXP ( -ZPW) ) 

IF  <  CRAT .  GE  10)  GO  TO  900 
***  COMPUTE  Y-LOCATION  OF  CONTOUR 

YC<1)  =  SI GY  *  (<-  ALOG(CRAT) )**RV) 

900  CONTINUE 
950  RETURN 
END 


****  SUBROUTINE  START  ***#*****-******«-*******************************-* 

SUBROUTINE  START (WMA,  YR,  WMU) 

THIS  SUBROUTINE  COMPUTES  THE  SET  OF  INITIAL  OR  STARTING  VALUES 
OF  PLUME  RADIUS.  PLUME  TRAJECTORY  AND  PLUME  ANGLE  THAT  ARE  NEEB- 
FOR  NUMERICAL  COMPUTATION  OF  OOMS'  MODEL  EQUATIONS . 

REAL  JAY 

DIMENSION  XOD ( 10) . ZOD< 10). PATHL< 10). YR<6> 

COMMON/DAT  1 /SO. VD.  VH,  ZDECK,  ZREF, UR 
COMMON/ DAT2/P0. TO. UVENT.  CO, UTLV,  WMG 
C0MM0N/DAT3/PVAP,  DISTAN,  DISMAX,  QL,  ZCON 

COMPUTE  THE  WIND  SPEED  AT  DECK  HEIGHT  ABOVE  THE  GROUND . 

ZDECK  *  DECK  HEIGHT,  M . 

ZREF  *  REFERENCE  HEIGHT  FOR  WIND  SPEED  PROFILE.  M . 

UR  *  WIND  SPEED  AT  THE  REFERENCE  HEIGHT,  M/S . 

UDECK=UR*  < ZDECK /ZREF ) **  14 

.  CALCULATE  THE  VAPOR  CONCENTRATION  FROM  THE  CHEMICAL  VAPOR . 

PRESSURE  AT  ONE  ATMOSPHERE,  AND  THE  VALUE  OF  ATMOSPHERIC . 

. PRESSURE . 

C0-PVAP/760 

C  CALCULATE  THE  MOLECULAR  WEIGHT  OF  THE  VAPOR  AND  AIR  MIXTURE.  .  .  . 


C-14 


oooopoo  oononnncinno  or-  ooooono 


WMG  -  MOLECULAR  WEIGHT  OF  PURE  CHEMIAL  VAPOR . 

.  WMA  =  MOLECULAR  WEIGHT  OF  AIR .  . 

WM J= ( CO*WMG >  +  < 1 -CO  > *WMA 

CALCULATE  THE  JET  MOMENTUM  RATIO  . 

. UVENT  ■-  VELOCITY  OF  VAPOR/AIR  MIXTURE  FROM  VEN1  . 

JAY= ( WMJ/WMA >  * ( UVENT /UDECK ) **2. 

. THE  KAMOTANI  AND  GREBER  CORRELATION  IS  USED  FOR  THE  INITIAL 

. PLUME  TRAJECTORY  .  .  <  Z /D )  “AV*  <  X/I)  >**BV . 

. CALCULATE  THE  PATH  LENGTH  ALONG  THE  TRAJECTORY . 

AV“EXP ( .  405465+0  131 368* ALOG  <  JAY ) +0.  054931* ( ALOG (JAY ) >**2> 

IF  (JAY  LT  10  )  GO  TO  4 

BV-EXP(-0  744691-0.  074 52 5* ALOG < JAY ) ) 

CO  TO  5 

4  BV«0  4 

5  CONTINUE 

R0W=0  871667+  1 775* ( UVENT /UDECK > 

CALCULATE  THE  VALUE  OF  PATH  LENGTH  (X/D)  THAT  IS  NEEDED  TO 

SATISFY  THE  CURVE  LENGTH . 

XOD ( 0 ) -0 
ZOD  ( 0  >=-0 
PATHL ( 0 ) =0 
1-0 

JO  I «=  I  + 1 

XQD( I >®XQD( 1-1 >+0  JO 
ZOD ( I ) =AV*XOD ( I >**BV 

PATHL ( I ) =PATHL ( I  —  1 )+SQRT< (XOD( I )-XOD( 1-1 ) >**2  + ( ZOD ( I ) -ZOD( I - 1 ) )* 
1*2  ) 

IF  ( PATHL ( I )  LT.  ROWJGO  TO  10 

FXOD=XCD ( 1-1 )+( XOD( I i-XOD( 1-1 >  >*( ( ROW-PATHL ( I - 1 ) )/ (PATHL; I > -PATHL 
2(1-1))) 

. CALCULATE  THE  INITIAL  VALUE  OF  YR(5)=X  BY  MULTIPLYING  XOD  BY... 

.  THE  VENT  DIAMETER.  VD . 

. CALCULATE  THE  INITIAL  VALUE  OF  YR(6)«Z  BY  MULTIPLYING  ZOD  BY 

THE  VENT  DIAMETER,  ZD.  AND  ADDING  THE  VENT  HEIGHT  ABOVE  THE 

.  DECK.  VH . 

CALCULATE  THE  INITIAL  VALUE  OF  YR ( 4 )=THETA,  THE  ANCLE  OF  THE  . 
PLUME  AXIS  WITH  RESPECT  TO  THE  HORIZON,  AS  THE  INVERSE  TANGENT. 

. OF  AV*BV*  <  X/D  )  *•*  (  BV  — 1 .  ) . 

CALCULATE  THE  INITIAL  VALUE  OF  YR ( 3 ) -VELOC I TY  DEFECT,  AS . 

. THE  VALUE  OF  UVENT-UDECK*C0S ( THETA ) . 

. CALCULATE  THE  INITIAL  VALUE  OF  YR(2)=B . 

YR ( 5 ) =FXQD*VD 

YR ( 6 ) =AV* ( FXOD**B V ) *VD+VH 

YR(4)=ATAN(AV*BV*FX0D**(BV-1  0) > 

YR ( 3 ) =UVENT-UDECK*COS ( YR ( 4 > ) 

YR ( 2 ) =0  6597*VD/ ( SORT ( 1  +1  35*UDECK*C0S ( YR < 4 ) ) /UVENT ) ) 

YR  ( 1  )=C0 

RETURN 

END 

****  SUBROUTINE  INDAT  *********************************************** 

SUBROUTINE  INDAT 

. THIS  SUBROUTINE  PERMITS  THE  USER  TO  FURNISH  INPUT  DATA  IN  AN.  . 

.  INTERACTIVE  MANNER.  THE  PROGRAM  WILL  IDENTIFY  THE  VARIABLE.  . 

. TO  BE  SPECIFIED,  PROMPT  WITH  THE  CURRENT  DEFAULT  VALUE.  AND  . 

.  ASK  THE  USER  IF  THIS  VALUE  IS  ACCEPTED  IF  NOT  THE  PROGRAM 

WILL  ACCEPT  A  NEW  VALUE  INPUT  BY  THE  USER . 

REAL  LEL.  APLACE ( 1 0 ) .  ADATE ( 3 ) .  AGAS ( 5 ) 

COMMON/DAT  1 /SO. VD,  VH,  ZDECK, ZREF. UR 
COMMON/DAT2/PO.  TO.  UVENT,  CO,  UTLV,  WMG 
C0MM0N/DAT3/PVAP, DISTAN,  DISMAX,  GL,  ZCON 
C0MM0N/DAT4/CC 1 ,  CC2,  CC3,  CC4,  CC5,  CC6 
C OMMON / DATS / UEL ,  LEL,  STEL,  TLV,  ODOR 
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COMMON/DAT 6/APLACE,  ADATE.  AGAS 

C  .  .  .  ENTER  NAME  OF  VESSEL.  PLACE  OR  DESCRIBING  PHRASE . 

TYPE  *,  '  ENTER  NAME  OF  VESSEL,  PLACE  OR  DESCRIBING  PHRASE  ' 

TYPE  *,  '  (UP  TO  40  CHARACTERS) 

TYPE  *,  ' 

ACCEPT  101.  <  APLACE ( J ) , J- 3,10) 

TYPE  *,  ' . . 

C  .  ENTER  NAME  OF  CARGO  VAPOR  DR  GAS  BEING  EMITTED . 

TYPE  *,  '  ENTER  NAME  OF  CARGO  VAPOR  OR  GAS  BEING  EMITTED  ' 

TYPE  *,  '  (UP  TO  DO  CHARACTERS) 

TYPE  *.  ' 

ACCEPT  102.  (AGAS(U), J= 1 . 5) 

TYPE  *.  .  . 


C  LIST  DEFAULT  VALUES  FOR  VENT  GEOMETRY  AND  ASK  WHETHER  CHANGES. 

C  ...  ARE  REQUIRED  .  .  . . 


5  TYPE  *.  '  LIST  THE  DEFAULT  VALUES  FOR  VENT  GEOMETRY  VARIABLES  ' 

TYPE  *,  '  ' 

TYPE  *.  '  VENT  DIAMETER,  VO.  ',VD, '  METERS  ' 

TYPE  *.  '  VENT  HEIGHT,  VH,  VH,  '  METERS  ' 

TYPE  *•-  '  DECK  HEIGHT,  ZDEC.K,  ' ,  ZDECK,  '  METERS  ' 

TYPE  *•,  '  ' 

TYPE  *.  '  DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  (Y/N)?  ' 

READ( 5,  105) I  DO 

IF ( IDO  NE.  1HN  AND  IDO  NE  1HY)G0  TO  5 
IF ( IDO  EQ  1 HY ) GO  TO  10 

6  TYPE  *.  ' . ' 

C . VALUE  FOR  VENT  DIAMETER,  VD,  IN  METERS . 

TYPE  *,  '  ENTER  VALUE  FOR  VENT  DIAMETER ,  VD,  IN  METERS.  ' 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  0  305  M  (12  INCHES) 

TYPE  *,  '  0  203  M  (  8  INCHES) 

TYPE  *,  '  0  102  M  (  4  INCHES) 

CALL  PROMPT (VD) 

C  VALUE  FOR  VENT  HEIGHT,  VH,  IN  METERS  . 

TYPE  *,  '  ENTER  VALUE  FOR  VENT  HEIGHT,  VH,  IN  METERS  ' 

TYPE  *.  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE 

TYPE  «,  '  1  0  M  (  3  3  FT) 

TYPE  *,  '  4  C  M  < 13.  1  FT  > 

TYPE  '  6  1  M  <20  0  FT),  OR  B/3  ' 

CALL  PROMPT (VH) 

C  VALUE  FOR  DECK  HEIGHT,  ZDECK,  IN  METERS . 

TYPE  *,  '  ENTER  VALUE  FOR  DECK  HEIGHT,  ZDECK,  IN  METERS.  ' 

TYPE  *.  '  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  1  0  M  (BARGE  > 

TYPE  *.  '  6  1  M  (SHIP) 

CALL  PROMPT (ZDECK) 

GO  TO  5 
10  CONTINUE 

. LIST  DEFAULT  VALUES  FOR  ATMOSPHERIC  CONDITIONS  AND  ASK . 

.  WHETHER  CHANGES  ARE  REQUIRED 

15  TYPE  *.  '  LIST  THE  DEFAULT  VALUES  FOR  ATMOSPHERIC  CONDITIONS  ' 

TYPE  *.  '  ' 

TYPE  *,  '  ATMOSPHERIC  PRESSURE.  PO.  '.PO. '  MM  HG  ' 

TYPE  *,  '  ATMOSPHERIC  TEMPERATURE.  TO.  '.TO,  '  DEG  R  ' 

TYPE  *.  '  WIND  SPEED,  UR,  '.UR.'  M/S  ' 

TYPE  *,  '  REFERENCE  HEIGHT,  ZREF,  ' ,  ZREF,  '  M  ' 

TYPE  #,  '  WIND  TURBULENCE  LEVEL.  UTLV,  ',UTLV.  '  7.  ' 

TYPE  *.  ' 

TYPE  *.  '  DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  (Y/N)?  ' 

READ; 5, 105) IDO 
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IF  (  IDO  NE  1HN  AND  IDO  NE.  1HY)G0  TO  15 
IF ( IDO  1 H Y ) GO  TO  20 

16  TYPE  * ,  '  . 

C  .  .  VALUE  FOR  ATMOSPHERIC  PRESSURE,  PO.  IN  MM  HG . 

TYPE  *.  '  ENTER  VALUE  FOR  ATMOSPHERIC  PRESSURE,  PO,  IN  MM  HG  ' 

TYPE  *,  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE.  .  . 

TYPE  *.  '  760.  PSIA 

CALL  PROMPT (PO) 

C  VALUE  FOR  ATMOSPHERIC  TEMPERATURE.  TO,  IN  DEG.  RANKINE . 

TYPE  *,  '  ENTER  VALUE  FOR  ATMOSPHERIC  TEMPERATURE,  TO,  IN  R  ' 

CALL  PROMPT (TO) 

C  .  . VALUE  FOR  REFERENCE  WIND  SPEED,  UR,  IN  METERS/SEC . 

TYPE  *,  '  ENTER  VALUE  FOR  REFERENCE  WIND  SPEED,  UR,  IN  M/S  ' 

TYPE  *.  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE  . 

TYPE  '  1  12  M/S  <  2.  0  MILE/HR) 

TYPE  *,  '  2  24  M/S  (  5.  0  NILE/HR) 

TYPE  *,  '  4  47  M/S  (10.0  MILE/HR) 

TYPE  *,  '  6.71  M/S  <15.0  MILE/HR) 

CALL  PROMPT (UR) 

C .  VALUE  FOR  WIND  SPEED  REFERENCE  HEIGHT.  2REF,  IN  METERS . 

TYPE  v,  '  ENTER  WIND  SPEED  REFERENCE  HEIGHT,  ZREF,  IN  METERS  ' 
TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE  .  .  ' 

TYPE  *,  '  10  0  M  <32.  8  FT ) 

CALL  PROMPT (ZREF) 

C . VALUE  FOR  WIND  TURBULENCE  LEVEL,  UTLV,  IN  PERCENT . 

TYPE  *.  '  ENTER  WIND  TURBULENCE  LEVEL,  UTLV,  IN  PERCENT  ' 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE  . 

TYPE  *,  '  207.  (FOR  ALL  WIND  SPEEDS) 

TYPE  *.  '  307  (FOR  VERY  LOW  SPEED  OR  GUSTY  CONDITIONS)  ' 

TYPE  *,  '  07.  (TO  ESTIMATE  INSTANTANEOUS  PLUME  BOUNDARY)  ' 

CALL  PROMPT (UTLV) 

GO  TO  15 
20  CONTINUE 
TYPE  *,  ' 

LIST  DEFAULT  VALUES  FOR  PLUME  VENT  CONDITIONS . 

AND  ASK  WHETHER  CHANGES  ARE  REQUIRED . 

25  TYPE  *,  '  LIST  THE  DEFAULT  VALUES  FOR  PLUME  VENT  CONDITIONS  ' 

TYPE  *,  ' 

TYPE  *,  '  CARGO  LOADING  RATE,  QL,  ' , QL, '  M*#3/HR  ' 

UVENT=  QL*0  0003536777/VD/VD 

TYPE  *,  '  VENT  VELOCITY,  UVENT.  '.UVENT,'  M/S  ' 

TYPE  *,  '  VAPOR  MOLECULAR  WEIGHT,  WMG,  ',WMG,  ' 

TYPE  *,  '  CARGO  VAPOR  PRESSURE.  PVAP,  ',PVAP, '  MM  HG  ' 

C0>=  ((PVAP/760  )  *  1 4  7>*144.  *WMG*16  0522/ (  1545*T0) 

TYPE  *,  '  VENT  CONCENTRATION,  CO,  ',C0, '  KG/M**3  ' 

TYPE  *,  ' 

TYPE  *,  '  DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  <Y/N>?  ' 

READ( 5, 105) IDO 

IF( IDO  NE  1HN.  AND  IDO.  NE  1HY)G0  TO  25 
IF< IDO  EQ  1 HY ) GO  TO  30 

26  TYPE  *,  '.  .  ' 

TYPE  *,  '  ' 

C . VALUE  FOR  LOADING  RATE  (OR  GAS  FLOW  RATE),  QL,  IN  M**3/SEC  . 

TYPE  *,  '  ENTER  LOADING  RATE  (OR  CAS  VOLUMETRIC  FLOW  RATE)  ' 

TYPE  *,  '  QL  IN  METERS**3/HR 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *.  -  794  M**3/HR  (5000  BBL/HR)  ' 

TYPE  *,  '  318  M**3/HR  (2000  BBL/HR)  ' 
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TYPE  *.  '  159  M**3/HR  (1000  BBL/HR) 

TYPE  *,  '  79  M**3/HR  <  5C0  BBL/HR)  ' 

CALL  PROMPT <QL> 

C  CALCULATE  VENT  VELOCITY,  UVCNT ,  IN  M/S 

UVENT=  QL*0  00035367 77 /VD/VD 

TYPE  *.  '  CALCULATED  VALUE  OF  VENT  VELOCITY  IS  '.UVENT, '  M/S  ' 

TYPE  *,  ' .  . 

TYPE  *,  ' 

C  . VALUE  FOR  VAPOR  MOLECULAR  WEIGHT . 

TYPE  *,  '  ENTER  VAPOR  MOLECULAR  WEIGHT,  WMG 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  86  10  (VINYL  ACETATE) 

CALL  PROMPT (WMG) 

C.  .  .  VALUE  FOR  VENT  CONCENTRATION-  CO,  IN  KG/M**3 . 

TYPE  *,  '  THE  VAPOR  CONCENTRATION  NEAR  THE  END  OF  CARGO  LOAD  INC- 
TYPE  *,  '  MAY  APPROACH  THE  SATURATED  VAPOR  CONCENTRATION  ENTER 
TYPE  *,  '  THE  VALUE  OF  SATURATED  VAPOR  PRESSURE,  OR  SOME  FRACT- 

TYPE  *.  '  ION  THEREOF . 

TYPE  *,  '  ENTER  VAPOR  PRESSURE,  PVAP,  IN  MM  HG  ' 

TYPE  *,  ' 

TYPE  *••  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  90  MM  HG  (VINYL  ACETATE) 

CALL  PROMPT (PVAP) 

C  CALCULATE  THE  VENT  CONCENTRATION  . 

C0=  ((PVAP/760  >*14.  7)*144  *WMG*16.  0522/ (  1545*T0> 

TYPE  *,  'CALCULATED  VALUE  OF  VENT  CONCENTRATION,  CO=',CO.  'KG/M**3 

TYPE  *,  '  . 

TYPE  *,  '  ' 

GO  TO  25 
30  CONTINUE 

C  .  LIST  DEFAULT  VALUES  FOR  PLUME  COMPUTATION  CONDITIONS . 

35  TYPE  *,  '  LIST  THE  DEFAULT  VALUES  FOR  PLUME  COMPUTATION  ' 

TYPE  *.  '  ' 

TYPE  *,  '  PLUME  PATH  DISTANCE.  SO,  SO,  '  M  ' 

TYPE  *,  '  DISTANCE  BETWEEN  PRINTOUTS.  D1STAN,  DI STAN,  '  M  ' 

TYPE  *,  '  MAX  DOWNWIND  DISTANCE,  DISMAX,  '.DISMAX, '  M  ' 

TYPE  *,  '  ' 

TYPE  *,  '  DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  <Y/N>?  ' 

READ <5. 105) IDO 

IF ( IDO  NE  1HN.  AND  IDO  NE.  1HY1G0  TO  35 
IF( IDO  EQ  1HY)G0  TO  40 

36  TYPE  *,  '  ...  . ' 

C  INITIAL  VALUE  FOR  PLUME  PATH  DISTANCE.  SO,  IN  METERS . 

TYPE  *,  '  ENTER  VALUE  FOR  PLUME  PATH  LENGTH,  SO,  IN  METERS  ' 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  0  0  M  ' 

CALL  PROMPT (SO) 

C  .  VALUE  FOR  DISTANCE  BETWEEN  PRINTOUTS.  DISTAN,  IN  METERS 

TYPE  *,  '  ENTER  DISTANCE  BETWEEN  PRINTOUTS,  DISTAN,  IN  METERS  ' 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  '  1  0  M 

TYPE  '  5  0  M 

CALL  PROMPT (DISTAN? 

VALUE  FOR  MAXIMUM  DISTANCE  FOR  PLUME  COMPUTATION . 

DISMAX,  IN  METERS  .  . 

TYPE  *,  '  ENTER  MAXIMUM  DISTANCE  FOR  PLUME  COMPUTATION  ' 

TYPE  *,  '  DISMAX,  IN  METERS  ' 

TYPE  *,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  10  M  (RECOMMENDED  FOR  1  M  VENTS) 
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TYPE  «.  '  JO  H  (RECOMMENDED  FOR  4  M  AND  B/3  VENTS)  ' 

TYPE  *.  •  100  M 

CALL  PROMPT (DISMAX ) 

GO  TO  35 
40  CONTINUE 

C  VALUE  FOR  UEL, LEL. STEL . TLV  AND  ODOR  . 

45  TYPE  *.  '  LIST  THE  DEFAULT  VALUES  FOR  UEL. LEL. STEL. TLV  AND  ODOR  ' 

TYPE  *,  ' 

TYPE  *,  '  UPPER  FLAMMABLE  LIMIT,  UEL,  *  ' ,  UEL,  '  7.  ' 

TYPE  *.  '  LOWER  FLAMMABLE  LIMIT,  LEL.  =  ' ,  LEL.  '  */.  ' 

TYPE  *,  '  SHORT  TERM  EXPOSURE  LIMIT,  STEL.  *  '.STEL. '  PPM  ' 

TYPE  *,  '  THRESHOLD  LIMIT  VALUE.  TLV,  «  ' , TLV,  '  PPM  ' 

TYPE  *,  '  ODOR  THRESHOLD,  ODOR.  »  '.ODOR,'  PPM  ' 

TYPE  * 

TYPE  *,  '  DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  <Y/N)?  ' 

READ ( 5, 105) IDO 

IF (IDO  NE  1HN  AND  IDO  NE  1HY)G0  TO  45 
IF (IDO  EQ  ^HY)GO  TO  50 

46  TYPE  *,  '  . ' 

C  VALUE  FOf  UPPER  FLAMMABLE  LIMIT,  UEL,  IN  PERCENT . 

TYPE  i>.  '  ENTER  VALUE  FOR  UEL  IN  PERCENT  BY  VOLUME  ' 

TYPE  *.  ' 

TYPE  *,  TYPICAL  VALUES  ARE 
TYPE  *,  13  4  I.  (VINYL  ACETATE) 

TYPE  *,  '  (  IF  THE  UEL  VALUE  IS  NOT  KNOWN,  ENTER  100.0)  ' 

CALL  PROMPT (UEL) 

C . ASSIGN  VALUE  OF  UEL  TO  CC3  . 

CC3  =  UEL vi OOOC 

C  VALUE  FOR  LOWER  FLAMMABLE  LIMIT,  LEL,  IN  PERCENT . 

TYPE  v,  '  ENTER  VALUE  FOR  LEL  IN  PERCENT  BY  VOLUME  ' 

TYPE  v,  ' 

TYPE  *.  '  TYPICAL  VALUES  ARE 

TYPE  v,  '  2  6  V.  (VINYL  ACETATE) 

TYPE  *.  '  (  IF  THE  LEL  VALUE  IS  NOT  KNOWN,  ENTER  100.0)  ' 

CALL  PROMPT (LEL) 


C  ASSIGN  VALUE  OF  LEL  TO  CC4 . 

CC4  «=  LEL*  1 0000 

C  VALUE  FOR  SHORT  TERM  EXPOSURE  LIMIT,  STEL,  IN  PPM 


TYPE  v,  '  ENTER  VALUE  FOR  STEL  IN  PPM  ' 

TYPE  v,  ' 

TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *.  '  20  PPM  (VINYL  ACETATE) 

TYPE  *,  '  (IF  A  VALUE  FOR  STEL  IS  NOT  KNOWN,  ENTER  1000000.  )  ' 

CALL  PROMPT (STEL) 

C  .  ASSIGN  VALUE  OF  STEL  TO  CC5  . 

CC5  =  STEL 

C  VALUE  FOR  THRESHOLD  LIMIT  VALUE,  TLV,  IN  PPM . 

TYPE  *.  '  ENTER  VALUE  FOR  TLV  IN  PPM  ' 

TYPE  *.  ' 

TYPE  v,  '  TYPICAL  VALUES  ARE 
TYPE  *,  '  10  PPM  (VINYL  ACETATE) 

TYPE  *,  '  (IF  A  VALUE  FOR  TLV  IS  NOT  KNOWN,  ENTER  1000000.  )  ' 

CALL  PROMPT (TLV) 


C .  ASSIGN  VALUE  OF  TLV  TO  CC6 . 

CC6  =  TLV 

C .  VALUE  FOR  THE  ODOR  THRESHOLD,  ODOR,  IN  PPM 

TYPE  *,  '  ENTER  VALUE  FOR  ODOR  IN  PPM  ' 

TYPE  *,  ' 


TYPE  *,  '  TYPICAL  VALUES  ARE 

TYPE  *,  '  0  12  PPM  (VINYL  ACETATE) 

TYPE  *,  '  (IF  A  VALUE  FOR  ODOR  IS  NOT  KNOWN,  ENTER  1000000.  )  ' 

CALL  PROMPT (ODOR) 

C  . ASSIGN  VALUE  OF  ODOR  TO  CC?  . 
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CCS  =  ODOR 
CO  TO  45 
50  CONTINUE 

C . LIST  DEFAULT  VALUES  FOR  CONCENTRATION  CONTOURS . 

55  TYPE  *.  '  LIST  THE  DEFAULT  VALUES  FOR  CONCENTRATION  CONTOURS  ' 

TYPE  *,  ' 


TYPE 

'  CC1 

s 

',  CCI .  ' 

PPM 

(USER  ASSIGNED  VALUE)  ' 

TYPE 

'  CCS 

e 

'.CCS,  ' 

PPM 

(USUALLY 

THE 

ODOR  THRESHOLD) 

TYPE 

'  CC3 

= 

',  CC3.  ' 

PPM 

(USUALLY 

THE 

UEL )  ' 

TYPE 

'  CC4 

= 

',  CC4,  ' 

PPM 

(USUALLY 

THE 

LEL)  ' 

type 

*> 

'  CC5 

' ,  CC5,  ' 

PPM 

(USUALLY 

THE 

STEL )  ' 

TYPE 

'  CC6 

= 

',  CC6,  ' 

PPM 

( USUALLY 

THE 

TLV)  ' 

TYPE 

/  / 

TYPE  *.  'DO  YOU  WANT  TO  USE  ALL  OF  THESE  VALUES  (Y/N>?  ' 

READ <  5.  105) IDO 

I F ( I  DO  NE. 1HN  AND.  IDO  NE  )HY)GO  TO  55 
IF < IDO  EG  1 HY ) GO  TO  60 

56  TYPE  *.  ' .  ' 

C .  VALUES  FOR  CONCENTRATION  CONTOURS  . 

TYPE  *,  '  ENTER  VALUES  FOR  CC1  THROUGH  CC6  IN  PPM  ' 

CALL  PROMPT (CC1) 

CALL  PROMPT ( CCS ) 

CALL  PROMPT (CC3) 

CALL  PROMPT (CCA) 

CALL  PROMPT < CCS ) 

CALL  PROMPT (CC6) 

GO  TO  55 
60  CONTINUE 

101  FORMAT < 10A4 ) 

102  FORMAT (5A4) 

105  FORMAT <A2) 

RETURN 

END 

C**r*  SUBROUTINE  PROMPT  ********»#**♦*****»»»****♦»**«*♦«*»*♦#****»■♦*«■ 
SUBROUTINE  PROMPT (VALUE) 

DATA  IY, IN/1. 0/ 

TYPE  *,  ' 

10  TYPE  '  the  CURRENT  DEFAULT  VALUE  IS  =  '.VALUE 

TYPE  *.  'DO  YOU  WANT  TO  USE  THIS  DEFAULT  VALUE  (Y/N)''>  ' 

READ  < 5.  100) IDO 
100  FORMAT (A2) 

I F ( 1  DO  NE  1HN  AND  IDO  NE  1 HY ) GO  TO  10 
I F ( IDO  EG  1 HY ) GO  TO  20 
16  TYPE  '  TYPE  IN  NEW  VALUE  ' 

ACCEPT  *,  VALUE 

20  TYPE  *.  '  .  .  .  . ' 

TYPE  *,  ' 

RETURN 

END 

****  subroutine  plots  ***********#******#***#**********-************* 

SUBROUTINE  PLOTS(X.  I  DIME  I  MAX ,  XAX IS.  Y,  JDIME,  UMAX,  YAX IS.  YMAX.  YMIN ) 


C  SUBROUTINE  FOR  PLOTTING  U  CURVES  OF  Y(I.J)  AO A INST  X  < I ) . 

C  .  .  X  AND  Y  ARE  SCALED  TO  THE  RANGE  0  TO  1 .  ,  FOR  PLOTTING . 

C  AS  ( Y-YMIN ) / ( YMAX-YMIN ) ,  THE  MAXIMUM  AND  MINIMUM  VALUES.  . 

C  ARE  PRINTED  NOTE  THAT  THE  X  AND  THE  Y  ARRAYS  MUST . 

C  BE  REDEFINED  BEFORE  EACH  CALL  PLOTS . 

C  DEFINITIONS 

C  I DIME  IS  THE  VARIABLE  DIMENSION  FOR  X . 

C  .  .  1MAX  IS  THE  NUMBER  OF  X  VALUES . 

C  XAXIS  STORES  THE  NAME  OF  THE  X-AXIS . 

C  .  .  UDIME  IS  THE  VARIABLE  DIMENSION  FOR  Y . 

C  UMAX  IS  THE  NUMBER  OF  CURVES  TO  BE  PLOTTED,  (UP  TO  30) . 
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C  .  .  .  THE  ARRAY  YAXIS(J)  STORES  THE  NAMES  OF  THE  CURVES . 

C .  THE  FIRST  CHARACTER  OF  EACH  CURVE-NAME  IS  USED  FOR . 

C  ....  PLOTTING  . 

C.  .  .  XSIZE  ALTERS  THE  X-PLOT  SIZE  BY  A  FACTOR  OF  .  2  TO  1.  .  IN.  .  . 

C .  STEPS  OF  0  1  . 

C .  YSIZE  IS  THE  Y-PLOT  SIZE  FACTOR  OF  2  UPWARDS  IN  STEPS . 

C .  OF  0  2  <  XSI ZE= i  -  YSI ZE=1  GIVES  NORMAL  SIZE  PLOT) . 

DIMENSION  X ( IDIME ) .  Y< I  DIME.  JDIME ) .  VAX  IS ( JDIME ) , 

1  A( 101 ) ■ D I G I T  < 1 1  ) 


DATA  DOT, CROSS, BLANK/1H  , 1H+, 1H  / 

1. DICIT/1H0.  1 H 1 ,  1H2,  1H3,  1H4,  1H5,  1H6.  1H7,  1HB.  1H9.  1H1/ 

C****  SET  PLOT  SIZE  FACTORS  ****************************************** 

XSI ZE=0  7 
YS I ZE=0  8 
C 

C****  SCALING  X-ARRAY  TO  RANGE  0  TO  100*XS1ZE  ************************ 

XR= 1 00  * X S  J  Z E 
IM=  IMAX 

C  ASSIGN  VALUES,  XMIN=0  AND  XMAX*X(IMAX) . 

XMIN=0 
XMAX=X ( IMAX ) 

S=XR / <  XMAX -XMI N+ 1  E-30) 

DO  2  1=1, I M 

2  X ( I ) =  ( X ( I )-XMIN)*S 
C 

C****  SCALING  Y-ARRAY  TO  RANGE  0  TO  50*YSIZE  ************************* 

YR  =  50.  *YSIZE 
JM=  UMAX 

C  .  SCALE  ARRAY  USING  VALUES  OF  YMAX  AND  YMIN  INPUT  IN  SUBROUTINE  CALL 

DO  3  J=1  ,  JM 

S=  YR/ < YMAX-YMIN+1  E-30) 

DO  3  1*1,  IM 

3  Y( I, J)  =  (Y( I,  J)-YMIN)*S 
C 

C****  WRITE  CURVE  NAMES,  WITH  ACTUAL  MIN  AND  MAX  VALUES  ************** 

J=1 

L=  IFIXfXR/10  ) 

K=L 

GO  TO  6 

5  U*U+L 
K=K+L 

6  K*=MIN0<  JN,  K) 

WRITE (3,  101 ) 

IF  (K-JM)  5,7,7 

7  WRITE <3, 106) 

C****  MAIN  LOOP  -  EACH  PASS  PRODUCES  A  Y-CONSTANT  LINE  ************** 

I X=  IFIX  <  XSI ZE*10  ) 

KX  =  IFIX(XR)  +  1 
I Y*  I F I  X ( YR*0  1  ) 

KY=  IFIX(YR)  +  1 
N«=  KY  +  1 
DO  40  M= 1 , KY 
L=  N-M 

IF  < L  EG  1  OR  L  EG  KY )  GO  TO  32 
CO  TO  33 
C 

C****  PUT  .  OR  +  ALONG  THE  X-AXIS  ************************************ 

32  DO  30  K= 1 . KX 

30  A ( K ) =DOT 

DO  31  K=l, KX, IX 

31  A ( K ) =CROSS 
GO  TO  45 

C 
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C**#*  PUT  DR  +  AND  Y-VALUES  ALDNG  Y-AXIS  *************************** 

33  A(l) =DOT 
A(KX)*DOT 
K*L-1 

46  K“K— I Y 
IF  <  K  >  48,47,46 

47  A< 1 >=CROSS 
A  <  KX ) *CROSS 

45  YL*FL0AT(L-1 >/YR 
GO  TO  35 

48  YL«-1 

****  SEARCH  FOR  POINTS  ALONG  Y-CQNBTANT  LINE  ************************ 

35  DO  42  J= 1 , JM 
DO  42  1=1, I M 

DO  NOT  PLOT  POINTS  THAT  EXTEND  BEYOND  THE  UPPER  OR  LOWER  VERT1CA 
LIMIT  OF  THE  GRAPH  YMX  IS  A  SCALED  VALUE  CORRESPONDING  TO  YMAX 

YMN  IS  SCALED  TO  ZERO . 

YMX  = ( YMAX— YMI N ) *S 
YMN=G 

IF  ( Y  < I , J  > .  GT  YMX)  GO  TO  42 
IF  (YCI. J).  LE  YMN)  GO  TO  42 
IF  (IFIX(Y(I, J>  +  1.  5).  NE  L)  GO  TO  42 

****  POINT  FOUND  -  ASSIGN  SYMBOL  -  SEARCH  FOR  MORE  ***************** 

NX  =  X  < I  )  + 1 .  5 
A  <  NX  )=»YAX  I S  (  J  > 

42  CONTINUE 

****  PRINT  y-constant  line  ***************************************** 

IF  <YL  NE  -1  )  GO  TO  37 
WRITEO,  106)  <A(K), K=l, KX) 

•  GO  TO  38 

37  WRITEO,  107)  YL,  <  A  <  K  > ,  K=  1 ,  KX  ) 

*■*«*  FILL  ARRAY  A  WITH  BLANKS  ************************************** 

38  DO  49  K=1,KX 

49  A  <  K ) =ULANK 
40  CONTINUE 

C****  PRINT  BLANK  OR  X-VALUE  FOR  X-AXIS  ***************************** 

L=  1 

K=KX-1 

A ( 1 ) =DI G I T  < 1  ) 

DO  51  I=IX, K, IX 
L=L+ 1 
A ( I ) =DOT 

51  A< 1+1 )-DIGIT(L) 

A(K)=BLANK 

WRITEO,  106)  ( A  (K  > ,  K=1 ,  KX  ) 

RETURN 

101  FORMAT  < 1H1 ) 

106  FORMAT <6X,  101A1 ) 

107  FORMAT <2H  ,  F3.  1 ,  1 X,  1 0 1 A 3 ) 


APPENDIX  D 


0NDEK3  OUTPUT  FOR 
VAM  BARGE  LOADING 

Example  of  Section  III. 2. 4 


DATE*  MAR  1 6.  1 983 


TITLE*  EXAMPLE  VAN  BARGE  LOADING 
METEOROLOGICAL  CONDITIONS 

0  BAROMETRIC  PRESSURE-760  OOO  MM  HG  AIR  TEMPERATURE- 520  0  DEG  R 
0  AVERAGE  WIND  SPEED*  2  24  M/5  AT  REFERENCE  HEIGHT*  10  00  M 
0  WIND  EXPONENT*  0.  14 

0  TURBULENCE  LEVEL-  20  00 


VAPOR  VENTINC  CONDITIONS 

0  VENT  DIAMETER*  0. 20  METERS 

0  VENT  HEIGHT-  1.00  METERS  ABOVE  THE  DECK 

0  DECK  HEIGHT*  1  00  METERS  ABOVE  THE  WATER 

0  EMITTED  VAPOR*  VINVL  ACETATE  VAPOR 

0  MOLECULAR  WEIGHT-  35.  74  OF  GAS  AND  AIR  MIXTURE 
0  VENT  CONCENTRATION-  0  431E+00  K0/(M**3> 

0  VENTING  FLOWRATE*  159.  <M#*3)/HR 

0  VENTINC  VELOCITY-  1  36  M/SEC 


VALUES  OF  CONCENTRATION  FOR  FLAMMABILITY  AND  HEALTH  HA2ARDB 

0  UPPER  FLAMMABLE  LIMIT  (UEL )  -  0.  4BBE+00  KC/<M**3> 

0  LOWER  FLAMMABLE  LIMIT  ( LEL  >  -  O.  947E-01  KQ/<M**3> 

0  SHORT  TERM  EXPOSURE  LIMIT  (STELI-  0.  72BE-04  KC/(M*#3) 

0  THRESHOLD  LIMIT  VALUE  <  TLV )  »  0.  364E-04  KC/<M**3> 

0  ODOR  THRESHOLD  (ODOR)  -  0. 437E-06  KC/(M**3> 


VALUES  OF  CONCENTRATION  CHOSEN  FDR  CONCENTRATION  CONTOURB 

0  Cl  -  0  364E-02  <KG/M*#3) 

0  C2  *  0  437E-06  <KC/M**3> 

0  C3  *  0. 48BE+00  <KG/M**3> 

0  C4  *  0  947E-01  <KC/M**3> 

0  C5  *  0  728E-04  <KG/M*#3> 

0  C6  *  0  364E-04  <KG/M**3> 

0  PREDICTED  FOR  A  HEIQHT  OF  1 .  6B0  METERS  ABOVE  DECK  LEVEL 


NUMERICAL  INTEGRATION  DATA 

0  STEP  SIZE-  0  0406  METERS,  MAXIMUM  DOWNWIND  DISTANCE-  10.00  METEf 


D-l 


BEGIN  PLUME  COMPUTATION  THROUGH  THE  AIR  ABOVE  THE  DECK 
S  XCL  7CL  CCL  CZCON  XCON  YC1  YC2  YC3 


METERS 

METERS 

METERS 

KG/M*#3 

KG/M**3 

METERS 

METERS  METERS  METEF 

0  16 

0.  216 

1.  244 

0.  1 1  lOE-'-OO 

0  9628E-03 

0  218 

0.  000 

0.  555 

0  000 

0.  97 

1.  029 

1.  277 

0.  1225E-01 

0  7297E-02 

t.  029 

0.  467 

1.  746 

0.  000 

1  95 

2  003 

1.  2B3 

0.  3947E-02 

0  3351E-02 

2.  003 

0  000 

2.  935 

0.  000 

2  96 

3  018 

1  264 

0. 1884E-02 

0  1767E-02 

3.  018 

0  000 

4  087 

0  000 

2  98 

4  033 

1. 285 

0. 1 100E-02 

0.  1137E-02 

4  033 

0  000 

5  201 

0.  000 

4  96 

5.  ooe 

1  2B5 

0. 731BE-03 

0  8437E-03 

5.  008 

0  000 

6  254 

0.  000 

5  97 

6  023 

1  265 

0  5150E-03 

0  6597E-03 

6  023 

0.  000 

7.  332 

0  000 

6  98 

7  036 

1  285 

0. 3B20E-03 

0  5332E-03 

7  038 

0.  000 

8.  388 

0  000 

7.  96 

8  012 

1  285 

0  2974E-03 

0  4428E-03 

8  012 

0.  000 

9.  380 

0  000 

8  97 

9.  027 

1  284 

0. 2361E-03 

0  3702E-03 
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CRAPH  OF  PLUME  CENTERLINE  CONCENTRATION  VERSUS  DOWNWIND  DISTANCE 
O  ORDINATE  IS  PROPORTIONAL  TO  LOG < CONCENTRATION) 
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TABLE  OF 
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GRAPH  OP  VAPOR  CONCENTRATION  AT  MAN  BREATHING  HEIGHT  VS  DOWNWIND  DISTANCE 
0  ORDINATE  IS  PROPORTIONAL  TO  LOG < CONCENTRATION ) 

0  ABSCISSA  IS  PROPORTIONAL  TO  DISTANCE 

TABLE  OF  CORRESPONDING  VALUES 


VALUE 

X< METERS) 

Y<KC/M**3> 

Y  <  PPM ) 
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GRAPH  OF  VAPOR  CONCENTRATION  CONTOURS  AT  MAN  BREATHINC  HEIGHT  ABOVE  THE  DECK 
0  ORDINATE  IS  PROPORTIONAL  TO  DISTANCE  IN  THE  CROSS-WIND  DIRECTION 
0  ABSCISSA  IS  PROPORTIONAL  TO  DISTANCE  IN  THE  DOWNSTREAM  DIRECTION 


TABLE 

OF  CORRESPONDING 

VALUES 

CONCENTRATION 

CONTOURS 

VALUE 

X< METERS) 

Y< METERS) 

SYMBOL  <PPM) 

<KC/M**3 

0  0 

1.  5 

0  0 
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APPENDIX  E 


0NDEK3  OUTPUT  FOR 
BENZENE  BARGE  LOADING 

Example  of  Section  I I I. 2. 7 


TITLE*  BENZENE  BARGE  LOADING  DATE*  MAR  16. 1983 

METEOROLOGICAL  CONDITIONS 

0  BAROMETRIC  PRESSURE-760  OOO  MM  HG  AIR  TEMPERATURE-520.0  DEG  R 
0  AVERAGE  WIND  SPEED*  2.24  M/S  AT  REFERENCE  HEIGHT*  10.00  M 
0  WIND  EXPONENT*  0. 14 

0  TURBULENCE  LEVEL*  20.  00 


VAPOR  VENTING  CONDITIONS 

0  VENT  DIAMETER*  0.  20  METERS 

0  VENT  HEIGHT*  1.00  METERS  ABOVE  THE  DECK 

0  DECK  HEIGHT*  1.00  METERS  ABOVE  THE  WATER 

0  EMITTED  VAPOR*  BENZENE  VAPOR 

0  MOLECULAR  WEIGHT-  33.  99  OF  GAS  AND  AIR  MIXTURE 
0  VENT  CONCENTRATION*  0.  337E+00  KG/(M**3> 

0  VENTING  FLOWRATE*  79  <M**3)/HR 

0  VENTING  VELOCITY*  0.  68  M/SEC 


VALUES  OF  CONCENTRATION  FOR  FLAMMABILITY  AND  HEALTH  HAZARDS 

0  UPPER  FLAMMABLE  LIMIT  (UEL )  *  0. 261E+00  KC/<M**3> 

O  LOWER  FLAMMABLE  LIMIT  (LEL)  =  0. 429E-01  KG/<M**3> 

0  SHORT  TERM  EXPOSURE  LIMIT  <STEL>*  0. 248E-03  KG/(M**3> 

O  THRESHOLD  LIMIT  VALUE  <TLV)  =  O.  826E-04  KG/(M**3) 

0  ODOR  THRESHOLD  (ODOR)  -  0.  155E-04  KG/<M**3) 


VALUES  OF  CONCENTRATION  CHOSEN  FOR  CONCENTRATION  CONTOURS 

0  Cl  *  0.  330E-02  <KC/M*«3> 

0  C2  =  0. 155E-04  <KC/M#*3> 

0  C3  *  0  261E+00  <KG/M**3> 

0  C4  *  0.  429E-01  <KC/M**3> 

0  C5  *  0  248E-03  <KG/M**3> 

0  C6  —  O  826E-04  <KC/M**3> 

0  PREDICTED  FOR  A  HEIGHT  OF  1.680  METERS  ABOVE  DECK  LEVEL 


NUMERICAL  INTEGRATION  DATA 


0  STEP  SIZE-  0  0406  METERS. 


MAXIMUM  DOWNWIND  DISTANCE-  10.00 


DEG IN  PLUME  COMPUTATION  THROUGH  THE  AIR  ABOVE  THE  DECK 


s 
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ZCL 
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CRAPH  OF  PLUME  CENTERLINE  CONCENTRATION  VERSUS  DOWNWIND  DISTANCE 
0  ORDINATE  IS  PROPORTIONAL  TO  LOG (CONCENTRATION) 
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GRAPH  OF  VAPOR  CONCENTRATION  AT  MAN  BREATHING  HEIGHT  VS  DOWNWIND  DISTANCE 
0  ORDINATE  IS  PROPORTIONAL  TO  LOG ( CONCENTR AT I ON ) 

0  ABSCISSA  IS  PROPORTIONAL  TO  DISTANCE 

TABLE  OF  CORRESPONDING  VALUES 
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GRAPH  OF  VAPOR  CONCENTRATION  CONTOURS  AT  MAN  BREATHING  HEIGHT  ABOVE  THE  DECK 
0  ORDINATE  IS  PROPORTIONAL  f'O  DISTANCE  IN  THE  CROSS-WIND  DIRECTION 
0  ABSCISSA  IS  PROPORTIONAL  TO  DISTANCE  IN  THE  DOWNSTREAM  DIRECTION 

TABLE  OF  CORRESPONDING  VALUES  CONCENTRATION  CONTOURS 


VALUE 

X< METERS) 

Y< METERS) 

SYMBOL  (PPM) 

<KC/M**3) 

0.  0 

1.  5 

0.  0 

1C.  . 

1000.  00 

0.  330E-02 

0.  2 

3.  2 

1.  0 

ODOR 

4.  68 

0.  I55E-04 

0  4 

4.  9 

2.  0 

UEL. 

79000.  00 

0. 261E+00 

0.  6 

6.  6 

3.  0 

LEL. 

13000.  00 

0  429E-01 

0.  B 

8  3 

4.  0 

STEL 

75.  00 

0.  248E-03 

1. 0 

10.  0 

5.  0 

TLV. 

25.  00 

0. B26E-04 

E-5 


